Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program aaa; var d, n : integer; begin write ('введите число n-'); readln (n); writeln('делители числа: '); for d : =1 to n do if n mod d = 0 then writeln (d)end.
напиши само ,я
б,в,г,е - лцд остальное к трубке
var i: integer;
s: string;
begin
s: ="abcdefghijklmnopqrstuvwxyz";
for i: = 1 to length(s) do
writeln(s[i],' = ', ord(s[i]));
end.
Популярные вопросы