tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу которая
Напишите программу которая вводит с клавиатуры числа до тех пор пока не будет введено число 0. в конце работы программы на экран выводится сумма и произведение введенных чисел.
Всенорм1111
2 01.09.2019 00:10
1
Ответы
гульназ85
06.10.2020 08:40
Program z1;
var a,i,sum,p:integer;
Begin
sum:=0;
p:=1;
repeat
begin
read(a);
sum:=sum+a;
p:=p*a;
until a=0
end;
writeln(sum,p);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Sasha2771
19.05.2020 00:31
М м м м м м м м м м м м м м м м м м м м м м м...
linakovtunenko1
19.05.2020 02:26
Люди я знаю что это приложение только по урокам но у меня такая проблема что делать если телефон иногда глючит и когда я нажимаю на телефон сначала не работает приложение а потом...
Zavgorodnev04
19.05.2020 02:25
Дано двумерный массив n * m элементов. Найти сумму элементов главной диагонали. Нужно сделать в виде С ++ и виде функции...
Женя220V
19.05.2020 02:24
написать задачу в паскале: Во введенной фразе каждое буквосочетание «ов» или «Ов» заменить на «ОВ». Вывести полученную фразу и количество произведенных замен....
Shadow69moon
17.12.2020 11:02
4. Черно-белое (без градаций серого) растровое графическое изображение имеет размер 15*15 точек. Какой объем памяти займет этоизображение...
Евгения65545
18.10.2020 21:12
ТЕКСТ ЗАДАНИЯ 6. Соотнесите взаимодействиеаппаратных устройств компьютераоноор 1В.2с.3а 1с 2а 3в 1в 2с 3а...
darinanugmanova
18.10.2020 19:52
Это интересно! Самая продаваемая игра - Tetris. На дан-ный момент продано более 40 миллионов еестечаен на вопросы1. Какие блоки использовались при создании игры?2. Какие блоки имеются...
KATE270701
18.10.2020 19:59
Задание 3: сообщение состоит из 10 страниц, на каждой странице написано 305 символов. Определите, сколько различных символов содержится в используемом алфавите, если объем информации...
микки37
31.08.2019 11:10
Напишите программу на языке с (си) найти двузначное число, равное утроенному произведению его цифр нужно написать программу...
Nadezhda6313
21.08.2019 22:40
#3 по exel в ячейке e5 записана формула: =b3+c4. запишите, как будет выглядеть эта формула, если её скопировать в ячейку: а) e6. б) i7. в)c4. г)e9 д) k5. е) t44 ж) c2 з)a5 #4 в...
Популярные вопросы
Выпишите из предложений глаголы, укажите те признаки, которые можно определить...
2
1. Установи соответствиеА. Гаечный ключ С. ПлоскогубцыВ. Ручная тележка Д. ОткрывалкаРычаг...
2
При поднятии груза на высрту 2м с подвижного блока совершаеться работа 2940Дж.Кпд...
2
Проанализируйте основные этапы экономической интеграции...
1
COP за 4 четверть по русскому языку 5классХ..роша осе..НЯЯ лу.ная ночь в окрес..ностях...
1
здесь нужно поставить эти предложения со словами«ne...rien,ne...pas,ne...jamais»)...
1
Надо сделать 2 и 3 столбик,подробно, с решением...
2
Нашатирний спирт - 10 % розчин амоніаку у воді. Скільки грамів амоніаку буде...
1
1. Какое из следующих утверждений неверно? а) длиной ненулевого вектора АВ называется...
1
Как ты оцениваешь поведение Мизгиря по отношению к Снегурочке? Можно ли его любовь...
1
var a,i,sum,p:integer;
Begin
sum:=0;
p:=1;
repeat
begin
read(a);
sum:=sum+a;
p:=p*a;
until a=0
end;
writeln(sum,p);
End.