Составить программу которая находит сумму первых 5 чётных чисел и выводит их на экран

Question

Информатика

Тит

21 июля, 02:26

Составить программу которая находит сумму первых 5 чётных чисел и выводит их на экран

+4

Ответы (1)

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

Мара · Answer 1

Program symma;

var

k, i, s: integer;

begin

s:=0;

i:=1;

k:=0;

while k<=5 do

begin

if i mod 2=0 then begin

s:=s+a;

k:=k+1;

end;

i:=i+1;

end;

writeln ('s=', s) ;

end.