C клавиатуры вводится число. вывести 5 чисел, идужих за ними, умноженных на 7. (Paskal ABC)

Question

Иван Мельников · Accepted Answer

procedure result (num:integer); 
var i:integer; 
begin 
for i:= 1 to 5 do 
 begin 
 writeln(inttostr((num+i)*7)); 
 end; 
end; 
 
вместо writeln - способ вывода - на экран или в файл, куда нужно - уже сам напишешь, главное алгоритм такой. Удачи!

Нинок · Answer

var N : Integer; 
begin 
Write('Введите число: '); ReadLn(N); 
WriteLn((N+1)*7); 
WriteLn((N+2)*7); 
WriteLn((N+3)*7); 
WriteLn((N+4)*7); 
WriteLn((N+5)*7); 
end.