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

Составьте программу в pascal abc: найдите сумму положительных чисел из трёх !

contemplation22 contemplation22    3   30.09.2019 14:10    2

Ответы
ichhund ichhund  09.10.2020 05:36

var x,sum,i:integer;

begin

sum:=0;

writeln('Enter 3 numbers');

for i:=1 to 3 do

   begin

   read(x);

   if (x>=0) then sum:=sum+x;

   end;

writeln('sum =', sum);

end.

Ввод : 1 -2 3

Вывод: sum =4

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
pRoToTyPe95wF pRoToTyPe95wF  22.05.2020 13:44
Напишите программу подсчета количества положительных, отрицательных чисел и чисел, равных нулю. Ввод чисел с клавиатуры....
Alexander0prokof Alexander0prokof  22.05.2020 14:12
Исполнитель Редактор получает на вход строку цифр и преобразовывает её. Редактор может выполнять две команды, в обеих командах v и w обозначают цепочки цифр. заменить...
DdMirko DdMirko  27.09.2019 00:50
Совокупность знаков системы счисления....
Анна230801 Анна230801  27.09.2019 00:50
Определи значение переменной a после выполнения фрагмента алгоритма при a=4 и a=17. ввод а если a 5 то a: =a+20 иначе a: =a*10 всё ответ: при a=4 значение переменной a...
reginaruzova1 reginaruzova1  24.04.2020 12:19
Упорядочите массив и определите в нем индекс элемента со значением 0.65 import java.util.ArrayList; import java.util.Collections; public class Test { public static void...
РашеваГулим РашеваГулим  05.12.2021 18:28
через час работу нужно сдать...
llboyn llboyn  15.02.2021 12:33
Cделать задание из файла ниже и быстро нижние...
егорка140 егорка140  15.02.2021 12:31
Ансамбль С містить 16 рівноймовірних повідомлень. Визначити кількість інформації, яку містить кожне таке повідомлення?...
Artur1Khasanov Artur1Khasanov  15.02.2021 12:31
Музыки при показе презентации.Запиши последовательность команд для настройки​...
rous59 rous59  15.02.2021 12:30
1. Сколько цветов распознает датчик цвета? 2. В какой палитре расположен блок Старт?3. Как робот движется по линии?4. Для чего нужен датчик цвета?​...

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