Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program pyat;
var a, b, c, d ,f, p : integer;
begin
writeln ('vvedite dlini storon pyatiugolnika');
readln (a);
readln (b);
readln (c);
readln (d);
readln (f);
p: = a+b+c+d+f;
writeln ('perimetr raven', p);
readln;
end.
program xxx;
var i, n : integer;
write ('введите число n-');
readln (n);
writeln('делители числа: ');
for i : =1 to n do
if n mod i = 0 then writeln (i)
Популярные вопросы