Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1
program xxx;
var n : integer;
begin
write('введите число n=');
readln(n);
if n mod 2 = 0 then write('четное') else write ('нечетное');
realdn
end.
2
e : = n mod 10
if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');
64000*16=1024000 б=128000 б=125 кб
var a,res: integer;
writeln('введите число');
readln(a);
res: =sqr(a);
writeln('квадрат числа,'a', равен,'res',');
readln;
program primitive;
var a,b: integer;
read(a,b);
writeln(a mod b);
end.чему в школе то
Популярные вопросы