Напишите программы в pascal,. вот : 1.написать программу, которая выводит таблицу кубов первых трех положительных четных чисел. 2.написать программу, которая вычисляет сумму первых n целых положительных нечетных чисел. 3.написать программу, которая вычисляет сумму первых n членов ряда 1,3,5, суммируемых членов ряда задается во время работы.
kostas2018
3
19.05.2019 04:00
4
Другие вопросы по теме Информатика
sirghost743
15.08.2019 10:00
JulianaBrolol
22.05.2019 07:40
anonim000002
05.05.2021 17:15
CCQ
05.05.2021 17:15
miloradovich04
05.05.2021 17:15
kuznetsovapoli
05.05.2021 17:15
whatareyoudoing
05.05.2021 17:15
yuliandra
05.05.2021 17:15
anastasiya2056
05.05.2021 17:16
LoKotRon2017
05.05.2021 17:16
Популярные вопросы
- Какие числа называются рациональными ?...
3 - Как можно перевести на geldmarktgeschäft?...
2 - Название газеты про летние каникулы...
3 - Кроссворд на тему человек и закон...
2 - Твір-мініатюра на тему : чари рідної природи з використанням різних складних...
2 - Картинка имеет форму прямоугольника со сторонами 24 и 38.её наклеили на...
1 - Сравните числа 347,541 ; 347,23; 35,7807; в ответе запишите наименьшее...
3 - Найдите деепричастие! каштанка поцарапав дверь налягла на неё грудью, отворила...
1 - На основании ас равнобедренного треугольника авс отметили точки м и к такие,что...
1 - Решить. выражение (a-1)^2-(a+1)(a-2)...
3
1)
var
n,i,kv:integer;
begin
kv:=1;
readln (n);
for i:=1 to n do
begin
if (i>0) and (i mod 2= 0) and (i<>0) then kv:=i*i*i;
writeln (kv);
end;
end.
2)
var
n,i,sum:integer;
begin
readln (n);
for i:=1 to n do
begin
if (i>0) and (i mod 2<>0) then sum:=sum+i;
end;
writeln (sum);
end.