ПОМОГИТЕ, ПОЖАЛУЙСТА, СРОЧНО НУЖНО!
делать нужно в паскале:
составьте 3 программы, используя FOR, WHILE и REPEAT: распечатать последовательность чисел 3, 6, 9, 12, ...20 и найти их сумму
делать нужно в паскале:
составьте 3 программы, используя FOR, WHILE и REPEAT: распечатать последовательность чисел 3, 6, 9, 12, ...20 и найти их сумму
Answers & Comments
var
a, s: integer;
i: integer;
begin
//цикл for
s := 0;
for i := 0 to 20 div 3 do
s := s + i*3;
writeln(s);
//цикл while
i := 3;
s := 0;
while i <= 20 do
begin
s := s + i;
i := i + 3;
end;
writeln(s);
//цикл repeat
i := 3;
s := 0;
repeat
s := s + i;
i := i + 3;
until i > 20;
writeln(s);
end.