1. Информатика
  2. Написать программу суммирующую

Написать программу суммирующую числа до тех пор пока не будет введён "0".
Входные данные:
1 2 3 0
Выходные данные:
6
2. Написать программу поиска НОД (Наибольший Общий Делитель) двух чисел.
Входные данные:
170 42
Выходные данные:
2

ksetitaafrgb ksetitaafrgb    2   11.05.2020 11:15    0

Ответы
liliyaabramova1 liliyaabramova1  14.10.2020 13:01

1)

program g;

var

a, b, c, d:integer;

begin

Readln(a, b, c, d) ;

begin

if a = 0 then

Writeln('0') end ;

begin

if b = 0 then

Writeln(a) end ;

begin

if c = 0 then

Writeln(a + b) end ;

begin

if d = 0 then

Writeln(a + b + c) end ;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Karinka1Malvinka Karinka1Malvinka  10.09.2019 07:20
Процесс общения между пользователем и пк а)активизацией полном б)пользовательским интерфейсом в)активацией программ г) интерактивным режимом д)режим внутренней...
ajdanayun ajdanayun  10.09.2019 07:30
Для целого числа к от 1 до 99 напечатать фразу мне k лет ,учитывая при этом, что при некоторых значениях k слово лет надо заменить на слово год или года.например,11...
mugivara9820p09uk7 mugivara9820p09uk7  10.09.2019 07:30
Для хранения растрового изображения размером 128х128 пикселей отвели 16кбайт памяти. каково максимально возможное число цветов в палитре изображения?...
базлайдер базлайдер  10.09.2019 07:30
Разберите программу заполнения массива а[1..10] следующими числами: индекс элемента: 1,2,3,4,5,6,7,8,9,10 значение элемента: 2,4,6,8,10,12,14,16,18,20 закономерность:...
natik2005 natik2005  10.09.2019 07:30
Чтобы процессор мог работать с программами на жёстком диске,необходимо: а)загрузить их в оперативную память; б)вывести их на экран монитора; в)загрузить их в процессор;...
vlad007g vlad007g  10.09.2019 07:30
Определить информационный объем сообщения компьютер как универсальное устройство для работы с информацией при мощности алфавита 256 символов...
AnnFair AnnFair  10.09.2019 07:30
Укажите входы и выходы для системы компьютера...
мяустик мяустик  10.09.2019 07:40
Сколько единиц в двоичной записи числа выражения 8^1023+2^1024-3? , объясните пошагово, как решать, смотрела в интернете, поняла только, что сначала переводим в...
zhanelkenesbekova zhanelkenesbekova  10.09.2019 07:40
Расставьте в следующем тексте слова а) условие входа в цикл б) условие выхода в) итерация г) тело цикла д) команда немедленного выхода из цикла однократное выполнение...
Kottenok2005 Kottenok2005  10.09.2019 07:40
ответить на вопросы: 1)переменная типа boolean. 2)операции сравнения в языке pascal abc. 3)логические операции в pascal abc. 4)что такое имя файла, расширение файла?...

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