tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найти сумму положительных чисел
Найти сумму положительных чисел из 10, введённых с клавиатуры. программа паскаль.
leo1010101
1 27.06.2019 06:30
0
Ответы
werttyu890
02.10.2020 12:53
Var
i, x, sum:integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(x);
sum:=sum+x;
end;
writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Alexandra335
16.04.2020 22:47
Как включить подсветку на такой клав...
milamul74
16.04.2020 22:47
Определи количество ячеек в диапазоне B1:B1....
шаурмичкаone
23.08.2019 15:00
Задать динамический массив, состоящий из m строк и n столбцов, n и m вводятся с клавиатуры. каждый элемент массива случайное число в диапазоне от -10 до 10. с клавиатуры...
valera5515
23.08.2019 15:00
Несжатое растровое изображение размером 256×128 пикселей занимает 8 кбайт памяти. каково максимально возможное число цветов в палитре изображения?...
ВероникаФардзинова
23.05.2019 20:34
Придумать свою информационную модель, характеризующего какой-нибудь объект. например, можно описать информационную модель ученика с использованием excel (фамилия, имя,...
flslskns
10.12.2020 18:35
Две Фрагмент электронные таблицы ячейка Д один введите формулу для подсчета суммы ячеек А1 В1 С1...
nick313
10.12.2020 18:36
2. За один календарный месяц было потреблено 508,35 кВт электрической энергии. Проанализируйте данные таблицы, ответьте на приведенные ниже вопросы. a) запишите формулу...
maximax325
05.08.2019 18:00
Вывести на экран каждый 4-ый член последовательности a(k)=(sqrt(sqr(k)+ ответ нужен на языке pascal....
Alenka341
05.08.2019 18:00
Допустим ли следующий оператор присваивания? если да, то напишите тип и итоговое значение переменной y, если нет, то напишите, почему y: = round(y*(7 div 4) mod 7/3)/y...
ПолинаРыжкова3
28.08.2019 03:00
Водин магазин в одинаковых бидонах 684 л молока , а в другой 456 л молока в таких же бидонах . в первый магазин 6 бидонов молока больше , чем во второй . сколько бидонов...
Популярные вопросы
Вычисли | ||+ 38||4 13162+ 115 9 1025 37. 5-3 369 7 83 10 - 3 422...
2
Что свидетельствует о вере в загробную жизнь? В чем разница между...
1
Мысырды шабуылдаған елдерді кластерге түсір...
2
Химия легко варианты ответа там...
1
Кто из героев комедии Грибоедова признается что у него два таланта...
1
Задание не Раметолмен рефлеrуменское действие, пока мите, что а)...
1
Setze die richtige Endung ein. 1. Ich war bei mein Oma.2. Ich gehe...
2
Составь равные дроби 2/3 3/2 5/4 12/10 13/13 ...
1
Схарактеризуйте фізичні властивості етену й етину....
1
Упражнение 5.Составьте сложное предложение, в котором два простых...
3
i, x, sum:integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(x);
sum:=sum+x;
end;
writeln(sum);
end.