Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
n,i,z: integer;
begin
readln(n);
for i: =1 to n do if n mod i=0 then inc(z,i);
writeln(z);
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);
на египетскую
вавилон-клинопись
финикия-подобие букв без гласных
египет-иероглифы
Популярные вопросы