Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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 c=1024000 бита/8=128000 байт=125 килобайт
var
a: integer;
writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);
writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);
только 25-18=7 человек
только французский 27 - 18 = 9 человек
ну а на вопросы не отвечу =))
Популярные вопросы