Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
КАТЯЯЯЯЯ111
21.04.2022 08:56 •
Информатика
Склавиатуры вводятся целые числа. количество чисел неизвестно, признак окончания ввода 0. напишите программу, которая вычисляет произведение чисел, которые оканчиваются на 7 и меньше 70.
Показать ответ
Ответ:
ободокдляволос
05.10.2020 22:49
Var
A:integer;
P:real;
Begin
P:=1;
Repeat
Read(A);
if (A<70)and(A mod 10 = 7) then P:=P*A;
Until A = 0;
WriteLn('P = ',P);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
poulina14
13.11.2021 11:34
Что делает эта программа( нужно var n, a, b, c: integer; begin write ( введите двузначное число ); readln (n); a: =n mod 10; b: =n div 10; c: =b-a; writeln ( результат ,...
ЛераТян2000
29.04.2021 01:24
1) переведите в римскую систему числа: 12, 345, 2999, 2444, 2888, 3777. 2) переведите в десятичную систему числ: mcdxcix, mmdccxlvii, mdcxcix 3) запишите в славянской системе...
ЕйнштейнАльберт
29.04.2021 01:24
Реализуйте алгоритм с использованием процедуры написание числа 1919 в графическом исполнителе стрелочка...
Jihye11
24.05.2023 21:32
Напишите, , программу, которая решила бы : ввести номер месяца и номер дня и вывести число дней, оставшихся до нового года ....
софа07022007
24.05.2023 21:32
1)ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом. 2) ввести натуральное число и определить, верно ли, что в его...
kristushaushakova
07.09.2020 20:57
Найти значение логического выражения ((1v0)& (1& 1))& (0v1)...
Gsjhcf
01.04.2021 08:34
)) 2. написать программу на языке программирования паскаль, вычисляющую гипотенузу и площадь прямоугольного треугольника по двум данным катетам....
Sabaydin
01.04.2021 08:34
Используя законы логики, данное выражение: ¬(x∧(¬x∧¬y))...
xvukvkee
21.12.2020 18:19
Нужно хоть что-нибудь 1)написать программу на языке программирования паскаль, вычисляющую гипотенузу и площадь прямоугольного треугольника по двум данным катетам. 2)заданы...
чебурек48
21.12.2020 18:19
Информатика как из этого слава получить другие слова из этих букв?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A:integer;
P:real;
Begin
P:=1;
Repeat
Read(A);
if (A<70)and(A mod 10 = 7) then P:=P*A;
Until A = 0;
WriteLn('P = ',P);
End.