Прочитайте из файла целые числа, увеличьте на 2 и выведите их на экран.
Прочитайте из файла целые числа, увеличьте на 2 и выведите их на экран.
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var input:text;
a:integer;
begin
assign(input,'input.txt');
reset(input);
while not EOF(input) do
begin
readln(input, a);
a:=a+2;
writeln(a);
end;
close(input);
end.
Не нашли ответ?
Похожие вопросы