Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
8, 1, 4, 1, 5, 9, 6, 7, 2
program summa;
var s, a, b, c : word;
begin
write('введите a - > '); readln(a);
write('введите b - > '); readln(b);
write('введите с - > '); readln(c);
s: =a+b+c;
write(' сумма равна ',s);
readln
end.
2гбайта=2000000байт
2000000байт/400байт=5000текстовых файлов
program mdd; uses crt; var i: longint; beginclrscr; for i: = 10 to 99 dobeginif i mod 13 = 0 then writeln(i); end; readkey; end.
Популярные вопросы