Question

Написать программу в Pascal по 2 способам repeat и while.Сделать блок-схему.ПОЖАЛУЙСТА РЕШИТЕ УМОЛЯЮ 99БАЛЛОВ

Answer 1

program M;
var i: integer = 2;
s: double = 0;
x: integer = 2;
begin
while (i<=15) do
begin
s := s + i*cos(i*x); 
i := i + 1;
end;
writeln('S= ', s:0:2);
end.а вот с repeat until

program M;
var i: integer = 2;
s: double = 0;
x: integer = 2;
begin
repeat
s := s + i*cos(i*x); 
i := i + 1;
until i>15;
writeln('S= ', s:0:2);