помогите решить задачу пожалуйста)

[bogdana]

Рассмотрите элементы числовой последовательности 5-2cos2i от 10го до 20го и выберите среди них (выведите их элементы на экран)большие , чем 4.простой язык Паскаль коды

так?

Используется синтаксис Pascal

program U;
var i,n: integer;
a:real;
begin
n:=20
for i:=10 to n do
a:=5-3*cos(2*i);
if a>4 then
writeln (i:4,a:10:2);
end;
end.
 

[Toucan]

Во-первых, отформатируйте свое сообщение нормальным шрифтом.
Во-вторых, продемонстрируйте свои попытки решения задачи (этого требуют Правила форума).
А пока -- в Карантин (здесь же написано, как из Карантина выбраться)

Когда/если будете приводить код, не забудьте поместить его в тег syntax

 [syntax=pascal] ...[/syntax]

[Toucan]

Возвращаю.

bogdana, после того, как Вы отредактировали свое сообщение в карантине, надо было написать в тему Сообщение в карантине исправлено -- я мог и не заметить Ваших исправлений.

[Nikita_b]

Не совсем.
Смотрите:

Используется синтаксис Pascal

for i:=10 to n do
a:=5-3*cos(2*i);
if a>4 then
writeln (i:4,a:10:2);

Вы десять раз считаете значение выражения и только последнее его значение проверяете по условию(a>4).
Не хватает begin'а после цикла и end'а после writeln.

[Maslov]

Nikita_b в сообщении #309146 писал(а):

Не хватает begin'а после цикла и end'а после writeln.

end там как раз есть, а вот begin'а для него действительно не хватает.

[bogdana]

Спасибо ) точно