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
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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов