1. Информатика
  2. Вычислить сумму всех положительных

Вычислить сумму всех положительных чисел от - 10 до 10 паскаль

54Азиз 54Азиз    1   20.07.2019 00:30    0

Ответы
LamanAchverdiyeva LamanAchverdiyeva  03.10.2020 08:22
//Pascal ABC.NET v3.1 сборка 1172

Var
 i,k:integer;
begin
 for i:=-10 to 10 do
 if i>0 then k:=k+i;
writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Marina11231 Marina11231  30.08.2019 00:40
Почему выдает ошибку uses crt; const n=10; var a,g: array [1..100] of integer; var b : array [1..100] of string; var m,i,j,x,o,k: integer; var p: array[1..100] of integer;...
Pузик Pузик  02.06.2019 16:30
Дан алгоритм действий: -открыть холодильник -достать желтую кастрюлю -поставить кастрюлю на газ.плиту -зажечь газ -подождать 5 мин -выключить газ -налить из кастрюли суп...
Артур15051505 Артур15051505  02.06.2019 16:30
Скорость передачи данных через adsl- соединение равна 128 кбит/с. размер файла составляет 368 кбайт. определите время передачи файла в секундах...
125894 125894  05.08.2019 03:10
Для выхода на поисковый сервер необходимо...
sophia75 sophia75  27.11.2020 11:55
Сполохи тесно связаны с возмущениями магнитного поля Земли. Основными проявлениями геомагнитной активности являются магнитные пульсации и магнитные бури. Одним из нескольких...
LiliLayd LiliLayd  04.09.2019 12:10
Определите сопротивление электрической цепи по показаниям амперметра и вольтметра...
tryx3 tryx3  04.09.2019 12:10
Решите биквадратное уравнение y^4-5x^2-24=0...
алёночкаааа2005 алёночкаааа2005  04.09.2019 12:10
Найдите допустимые значения переменной в выражение: n+3 дробная черта n^2-2n...
vladchivlad vladchivlad  04.09.2019 12:10
40 7-10 предложений на о любой стране...
Polinaklass12 Polinaklass12  04.09.2019 12:10
Кто хитрее и умнее геракл или атлас?...

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