1. Информатика
  2. Составить программу которая

Составить программу которая считывает 6 чисел и найти сумму неотрицательных чисел.

matisina48 matisina48    1   03.10.2019 16:40    2

Ответы
6811694978ффф 6811694978ффф  09.10.2020 14:50

var i,a,sum:longint;


begin

sum:=0;


for i:=1 to 6 do begin readln(a); if(a>0) then sum:=sum+a; end;


writeln(sum);


end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Димооон1 Димооон1  11.08.2019 11:20
Битовая глубина цвета равна 24 . сколько различных оттенков серого цвета может быть отображено на экране ( серый цвет получается , если уровни яркости всех трех...
Пандochka Пандochka  11.08.2019 11:20
Не могу поменять шрифт на телефоне что делать? (у меня android)...
angel2261 angel2261  11.08.2019 11:20
Составить программу решающую : с конца терской фабрики отгружают конфеты в коробках по 10кг,5кг и 1 кг какое наименьшее кол-во короьок потребуеться для перевозки...
крисс1233 крисс1233  11.08.2019 11:20
Что аключает в себя понятие правила обработки информации ? а скорость передачи б надежность хранения в алгоритмы в время обработки информации...
Orisha20 Orisha20  11.08.2019 11:10
Readln и writeln read и write что из них функция, а что процедура !...
nikita6011 nikita6011  11.08.2019 11:10
Стестом по информатике! 1. какое сообщение закодировано в кодировке windows-1251: 0011010100100000111000011110000011101011111010111110111011100010 2. считая, что...
vickatrasyuk vickatrasyuk  11.08.2019 11:10
Паскаль abc. из заданной строки получить новую,удалив все буквы латинского алфавита....
nector nector  11.08.2019 11:10
Какие из перечисленных моделей материальные, а какие информационные? в ответе запишите последовательность букв м (материальные) и и (информационная) а) макет декоративного...
katmik04 katmik04  11.08.2019 11:00
Даны целые числа a и b,если числа не равны,то заменить каждое из них одним и тем числом,равным большему из исходных,а если равны то заменить оба нулями входные данные...
ANJELIKA2030 ANJELIKA2030  11.08.2019 10:50
Решить уравнение: 1110₂ +x₁₆ =24₁₀ найдите чему равен x в шестнадцатиричной системе счисления. решить за 1 час!...

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