Вопрос по информатике:
Помогите, пожалуйста с номером 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
- 14.02.2018 03:57
- Информатика
- remove_red_eye 661
- thumb_up 37
Ответы и объяснения 1
Program a1;
var y, a, x, n, i,b: integer;
begin
writeln ('введите значение x и n');
readln (n);
y:=0;
i: = x;
a:=cos (x);
repeat
y:=y+a;
i:=i*x;
a:=cos(i);
inc(b);
until bi >=10) do
writeln(y);
end.
- 15.02.2018 06:29
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.