Прочитайте из файла целые числа, увеличьте на 2 и выведите их на экран.

Question

Информатика

Зинуля

16 мая, 13:09

Прочитайте из файла целые числа, увеличьте на 2 и выведите их на экран.

+1

Ответы (1)

Знаете ответ?

Иля · Answer 1

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.