Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
00-ff - стандартная кодировка оттенков серого
program xxx;
var i, n : integer;
begin
write ('введите число n-');
readln (n);
writeln('делители числа: ');
for i : =1 to n do
if n mod i = 0 then writeln (i)
end.
program strangle;
var
a: integer;
readln(a);
if a = 180 then writeln('yes') else writeln('no');
end;
Популярные вопросы