Помогите, пожалуйста с номером 40. Нужно написать программу в Pascal, используя цикл repeat until. Первая часть есть: program a1;
var y, i, a, x: integer;
begin
writeln ('введите значение x');
readln (x);
y:=0;
i:=x;
a:=cos (x);
repeat
y:=y+a
var y, i, a, x: integer;
begin
writeln ('введите значение x');
readln (x);
y:=0;
i:=x;
a:=cos (x);
repeat
y:=y+a
More Questions From This User See All