Pascal! 1) írjon egy programot, amely ellenőrzi, hogy a szám egyenletes vagy páratlan-iskola
1) írjon egy programot, amely ellenőrzi, hogy a szám egyenletes vagy páratlan-e
2) Írjon be egy programot, amely ellenőrzi, hogy a billentyűzeten szereplő egész szám osztva 3-mal
3) írjon egy programot, amely meghatározza, hogy a jegy "szerencsés" vagy sem, egy 6 jegyű jegy. A jegy örül, ha az első két szám összege megegyezik az utolsó három szám összegével
5) írjon egy programot, amely ellenőrzi, hogy a billentyűzeten beírt egész számot hatra osztják-e
6) írni egy programot, amely meghatározza, hogy a b szám osztva van-e egy egész számmal.
7) egy teljes 4-jegyű számot kapott. Cserélje ki a számokat ebben a számban különböző helyeken, jelenítse meg az eredeti és a megváltozott számot
Válaszok és magyarázatok
1)))))))))
program z;
var
i. integer;
kezdődik
Writeln ('Enter number'); Readln (i);
ha i mod 2 = 0
majd
Writeln ("páros szám")
más
Writeln ("A szám nem egyenletes");
readln;
végén.
2))))))))))))
program z;
var
i. integer;
kezdődik
Writeln ('Enter number'); Readln (i);
ha i mod 3 = 0
majd
Writeln ("szám osztva 3-mal")
más
Writeln ('A szám nem osztható meg 3-mal');
readln;
végén.
3))))))
program z;
var
i: array [1..6] byte;
x: byte;
kezdődik
x: = 1-től 6-ig
kezdődik
Writeln ('Enter', x, '6' számjegy);
Olvass (i [x]);
végén;
ha (i [1] + i [2]) = (i [4] + i [5] + i [6]
majd
Writeln ("Happy Ticket")
más
Writeln ("A jegy nem boldog");
readln;
végén.
5)))
program z;
var
i. integer;
kezdődik
Writeln ('Enter number'); Readln (i);
ha i mod 6 = 0
majd
Writeln ('A szám osztva 6')
más
Writeln ('A szám nem osztható 6-mal');
readln;
végén.
6)))))
program z;
var
a, b: egész szám;
kezdődik
Writeln ('adja meg az A számot'); Readln (a);
Writeeln ('adja meg a B számot'); Readln (b);
ha b mod a = 0
majd írja ('A számot osztja a teljes B számmal)
else Writeeln ('Az A szám nem osztható fel a teljes B számmal);
readln;
végén.
Ez a kérdés az archívum. Új kérdés hozzáadása
Kétség a válaszban?
Tudjon meg többet a tudásról!
Van probléma a házi feladattal?Kérjen segítséget!
A válaszok 80% -a 10 percen belül érkezik
Nem csak válaszolunk, hanem megmagyarázzuk