1. Информатика
  2. Найти сумму целых отрицательных

Найти сумму целых отрицательных нечетных чисел, больших -100 в паскале

Alinka2128 Alinka2128    1   04.10.2019 03:30    1

Ответы
fearsomehusky fearsomehusky  09.10.2020 18:44

var i,s:integer;

begin

for i:=1 to 99 do

 begin

 if i mod 2=1 then s+=i;

 end;

s:=-1*s;

writeln(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
superscholnik1772 superscholnik1772  04.10.2019 04:10
По одноколейной железной шли на встречу друг другу 2 товарных поезда. в каждом из них по 8 вагонов. на станции, где они встретились , от главного пути отходит боковая ветка(тупик),...
gameadventgary gameadventgary  04.10.2019 04:10
Напишите программу, чтобы с её можно было найти наибольший общий делитель произвольных десяти целых двузначных чисел (на языке паскаль)...
nadezda19831 nadezda19831  04.10.2019 04:10
Найти сумму двухзначных натуральных чисел до n у которых цифры равны между собой (например 11, 22 и т д.) на языке паскаль....
Catcat123dogdog Catcat123dogdog  28.11.2021 16:53
Одноканальный звук длительностью 1 сек оцифрован с частотой 1024 Гц и разрядностью 24 бит. Определите размер полученного файла в Кбайтах....
Nata10445love Nata10445love  28.11.2021 16:51
Петя, Вася и Маша остались дома одни. Кто-то из них съел варенье. На вопрос мамы, кто это сделал, они сказали:Петя: «Я не ел. Маша тоже не ела».Вася: «Маша, действительно, не ела....
pugovka2017 pugovka2017  23.05.2020 17:26
Дана программа на языке программирования Паскаль. Запиши данную программу и запусти. uses crt; var mas, A: array[1..10] of real; begin clrscr; mas[1]:=12; mas[5]:=25; mas[9]:=89;...
AGENT284 AGENT284  29.12.2020 07:39
Вопрос 1 показывает объекты и процессы в виде изображений или символов а) натуральные моделиб)наличные моделив) информационные модели...
000Ангел000 000Ангел000  29.12.2020 07:47
Сор по ифоорматике 2. Рассмотрите кодовую таблицу: А В Д Е И К Л Н О С Т01 02 03 04 05 06 07 08 09 10 11А) Закодируйте слова по образцу:1) Код – 06 09 032. Воин3.Лента3. Раскодируйте...
000Ангел000 000Ангел000  24.11.2020 14:50
РастрлынграфикалыкредакторларВек пықграфикалықредакторлар​...
samsianna2003 samsianna2003  08.07.2019 18:30
Емкость usb-флешки 256 мегабайт usb-флешки в битах байтах килобайтах...

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