Помогите пожалуйста с информатикой

Помогите пожалуйста
с информатикой

Задать свой вопрос
1 ответ
1.
var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
if (i mod 3=0)and(i mod 6lt;gt;0) then s:=s+i;
writeln('s = ',s);
end.

Итог:
s = 867

2.
var i:integer;
begin
for i:=10 downto 2 do  write(i*i,', ');
writeln(1,'.');
end.

Итог:
100, 81, 64, 49, 36, 25, 16, 9, 4, 1.

3.
var x,y,h:real; i:integer;
begin
h:=0.5;
x:=0-h;
for i:=1 to round((5-0)/h)+1 do
 begin
 x:=x+h;
 if xlt;=2 then y:=x*x+x else y:=x*x+sqrt(x);
 writeln(x:4:1,y:8:2);
 end;
end.

Итог:
 0.0    0.00
 0.5    0.75
 1.0    2.00
 1.5    3.75
 2.0    6.00
 2.5    7.83
 3.0   10.73
 3.5   14.12
 4.0   18.00
 4.5   22.37
 5.0   27.24
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт