Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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');
var
i,n,a: integer;
for i: =1 to n do
read(a);
if (a mod 3=0)and(a mod 5> 0) then write(a,' ');
end;
writeln;
т.к 3 вида флагов, значит возводим число 3 в степень равную кол-ву флагов
ответ: 81 сигнал
бухгалтерия, документооборот.
Популярные вопросы