Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495
a,b: integer;
write('введите в одной строке два целых числа и нажмите < enter> ');
readln(a,b);
if a=b then writeln('числа равны')
else
if a> b then writeln(a,' больше')
else writeln(b,' больше')
у меня тоже даша получилось))
Популярные вопросы