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

Question

Информатика

Нюраша

20 января, 00:41

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

+5

Ответы (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.