Вычислить сумму 0+1+2+3+4++99 и определить сколько чисел просуммировано паскаль нужен текст проги со всеми var begin end итд делать через while
mashalin44
1
25.09.2019 03:40
3
Другие вопросы по теме Информатика
kamola200004
02.10.2019 22:01
adamoon44
02.10.2019 22:01
NezNeika
02.10.2019 22:01
krudnya
04.04.2020 15:59
lorik02
04.04.2020 15:59
svetik1310
04.04.2020 15:53
1981katerina
04.04.2020 16:21
krazy4550
04.04.2020 15:54
kazachok2
19.02.2020 12:02
Strong996
19.02.2020 10:06
Популярные вопросы
- сделать проект по литературе на тему: Непосредственно художественного...
2 - Скласти асоціативний кущ до поняття сучасна українська література ...
3 - 4. Начерти и правильно обозначь фигуры:Прямая вЛуч УКОтрезок CA...
1 - Тезисы из рассказа хамелеон ...
1 - Расстояние, которое свет проходит в вакууме, равно S1= 36 см, а в прозрачной...
3 - 4. Завершіть логічні ланцюжок. Похід Ганнібала в Італііо - перемога...
1 - Write a story about a day with crazy weather. Tell about 4 different...
1 - начертите животное вот координаты(3;5),(2;3),(1;5),(2;6),(3;5),(6;5),(6;4),(8;4),(8;2),(6;1),(3;-1);(4;-6),(6;-7),(3;-7),(1-1,5),(-4;-2),(-7;2),(-8;3),(7,5;5),(-6;6),(-3;6),(-2;5),(-2;4),(-3;5),(-6;5),(-6,3),(1;2),(2;3),(6;1)...
2 - Умодч !Нужно написать :твір опис на тему :ось 4 вибрати треба будьласка...
3 - Нужна таблица о кратком содержании в главах рассказа Голубое и зелёное...
3
var S, n:integer;
Begin
n:=0;
S:=0;
while n<100 do begin
S:=n+S;
write('S=', S, ' ');
n:=n+1;
writeln('n=', n);
end;
End.