1. Информатика
  2. Pascal: посчитать сумму всех

Pascal: посчитать сумму всех целых чисел от -10 до b (b> =-10) напишите програму

Катя388891 Катя388891    3   22.07.2019 18:20    0

Ответы
Rookgolf60 Rookgolf60  03.10.2020 11:02
Var i,b,s:integer;
begin
write('b = '); readln(b);
s:=0;
for i:=-10 to b do s:=s+i;
writeln('s = ',s);
end.

Пример:
b = 5
s = -40
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
katcornewa katcornewa  29.09.2019 14:30
2. укажите три верных высказывания (несколько верных ответов) 1) 1-е поколение компьютеров – это эвм, основанные на использовании радиоламп 2) 2-е поколение компьютеров...
Алёнатян111 Алёнатян111  29.09.2019 14:40
Составить рассказ «из чего состоит компьютер» для третьеклассника...
xkhs1sjsiXjjs xkhs1sjsiXjjs  02.08.2019 00:10
Какими в www можно найти нужную страницу ?...
Эмиральд Эмиральд  12.03.2019 21:10
Какой объем видеопамяти необходим для хранения двух страниц изображения при условии, что разрешающая дисплея 640*350 пикселей, а количество используемых цветов 16?...
iik2001vrnp087am iik2001vrnp087am  07.10.2019 20:30
Мальчик пишет девочке письмо на 2.5 стр по 5 строчек на странице по 70 символов в строке v сообщение = 3.6 кбайт найти n алфавита​...
marina999mmm marina999mmm  07.10.2019 20:30
Реферат на тему: программные системы обработки текстов под ms dos....
DanilSv040 DanilSv040  07.10.2019 20:30
Создайте проект, в котором на фоне ночного неба случайным образом, то в одном, то в другом месте появляется звезда. звезда меняет свой цвет. scratch...
TookteR TookteR  07.10.2019 20:30
Фрагмент программы (переменные a и n целые) паскаль си a : = 0; a : = a + n div 1000; a : = a + (n div 100) mod 10; a : = a + (n div 10) mod 10; a : = a + n mod 10;...
nata960 nata960  29.06.2019 20:30
Информационное сообщение на языке, первоначально записанное в 8-битном коде кои-8, было перекодированно в 16-битную кодировку unicode. в результате его объём увеличился...
stas273 stas273  29.06.2019 20:30
Существуют тройки пифагора, то есть a^2+b^2=c^2 . есть лишь одна такая тройка, что a+b+c=1000 . написать программу, которая находит эту тройку(a=? , b=? , c=? ) и...

Популярные вопросы