Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
caps lock,shift
var
i: integer;
begin
for i: =100 to 999 do
if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)
then writeln(i);
end.
на паскале:
n,s,p: integer;
read(n);
p: =n mod 10;
if p mod 2=0 then writeln ('оканчивается на четную цифру')
else writeln ('оканчивается на четную цифру');
while n> 0 do
n: =n div 10;
s: =s+1;
end;
writeln ('количество цифр в числе', s);
третье, там где пять
5> 4 и не 5> =6
Популярные вопросы