Вычислить значение выражения

@plsap · Регистрация: 26.10.2015

Author24 — интернет-сервис помощи студентам

Нужно сделать циклом (for) но как? Помогите пожалуйста.

Вот сама программа

Pascal

program zad4;
var
x:integer;
y:real;
begin
writeln('Ввести значение x');
readln(x);
begin
if (1<=x) and (x<=36) then writeln('Выполняется условие', y)
else
y:=2*(exp((2*y+1))+1)/3;
write('Не выполняется условие');
end;
end.

@Puporev · 30.06.2016, 16:43

Сообщение от plsap

Нужно сделать циклом (for) но как?

Можно подумать что этот маразм без цикла что дельное выдает.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.06.2016, 16:43	2
	Сообщение от plsap Нужно сделать циклом (for) но как? Можно подумать что этот маразм без цикла что дельное выдает. 0