Помогите Паскаль, циклыплз

Помогите Паскаль, циклы
плз

Задать свой вопрос
1 ответ

 var   
a : real :=1;   
r : real;  
begin 
 //f(x) = 2x^2 + 3 sqrt (x)      
While a lt;= 2+0.1 do   
begin     
r := 2* sqr(a) + 3 * sqrt (a);     
writeln (r:4:3);     
a := a + 0.1;             
 end; 
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт