Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
NooDys
25.04.2023 04:48 •
Информатика
Дана послкдовательность чисел оканчивающихся на 0 найти сумму и произведение паскаль
Показать ответ
Ответ:
vika1410057
08.10.2020 14:16
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var (sum,p):=(0,1.0);
ReadSeqIntegerWhile(t->t<>0).ForEach(f->begin sum+=f; p:=p*f; end);
write('сумма: ',sum,'; произведение: ',p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
NeGaTiV4iK1233
28.03.2022 03:49
В небольшом городке живут пятеро друзей: Иванов, Петров, Сидоров, Гришин и Алексеев. Профессии у нихразные: маляр, мельник, Плотник, почтальон,парикмахер.1. Петров...
Gelag
25.12.2022 03:51
2 Напиши программу на следующие задачи А) После увеличения цены альбома на 25% он стал стоить а рублей. Сколько стоил альбом первоначально. Б) В книге В страниц....
ekaterina0405
24.10.2022 21:30
Які правила запису арифметичних виразів мовою Паскаль?...
ДашаааDidek
04.06.2020 17:16
Решить все задания, по теме использование информационных моделей....
aliaidi
17.02.2020 23:22
Чи є різниця між форматування всієї таблиці та окремих клітинок у середовищі табличного процесора...
VlabaR265
02.05.2023 01:08
Провести анализ существующих механизмов защиты информации, используя рекомендованные источники и ресурсы Интернет. Работу выполнить в форме эссе (изложения вашего...
okrushko
19.11.2021 12:42
Summative assessment for the unit Our...
rensatkontri
19.11.2021 12:42
Сколько молекул содержится в газе объёмом 2м³ при давлении 150 кПа и температура 27°?...
givka1
28.03.2023 20:10
3 сынып әдебиет итжб жауаптары...
Ларкия
01.02.2021 22:53
Шакарим Кудайбердиулы жайлы кластер...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Версия 3.3.5, сборка 1650
begin
var (sum,p):=(0,1.0);
ReadSeqIntegerWhile(t->t<>0).ForEach(f->begin sum+=f; p:=p*f; end);
write('сумма: ',sum,'; произведение: ',p);
end.