Составьте программу, которая находит наименьшую сумму ряда 3+4+5+6+ превыщающую 15(паскаль авс)
Портнягин
1
13.03.2019 13:47
1
Другие вопросы по теме Информатика
zhigalkinden
07.05.2020 13:01
igoreha3
07.05.2020 13:01
Poli2533
03.03.2021 21:31
komaman
03.03.2021 21:33
Frizi4
03.03.2021 21:34
geraveselov20
03.03.2021 21:34
кактус107
16.03.2021 10:32
mayakmaria
16.03.2021 10:33
inchinusaozkhxs
16.03.2021 10:33
Популярные вопросы
- Втреугольнике cdm cd равен 10 см, угол d равен 45°,угол m равен 60°. найдите...
3 - Составь предложения с фразами(in the middle of,next to,bexind,in front...
3 - (1 1/12+3,)=4,5 -(5 2/3-1,6)-х-=6 1/3 х-(7 5/9-5 1/6)=-3,5 ,6+3 4/7)=-8...
3 - Какие черты характера свойственны богатырям?...
3 - Образец металлического бария сожгли на воздухе, затем получившийся оксид...
2 - Вычитание рациональных чисел. 1.6-0.6= 0.7-0.3= 1.6-(0.6)= 0..3)= -1.6-0.6=...
2 - Между двумя телами массой m каждое , расположенными на расcтояний r друг...
2 - Сколько. всего атомов в 0.25 моль соединения ab3 ? ? решить с употреблением...
1 - Какие страны были покорены египтянами в ходе военных походов...
2 - Сравните (больше, меньше, равно) 7/10 м и 70 мм 40 589 мм и 4 058 дм 9...
2
Program summa;
uses crt;
Var s, i, n:integer;
begin
Write ('n='); readln (n);
s:=1; write ('s=1');
For i:=2 to n do
Begin
s:=s+i;
Write ('+', i);
End;
Write ('=', s);
readln;
end.