Написать программу: вводятся число до тех пор пока не введен…

Написать программу: вводятся число до тех пор пока не введен 5. Найти произведение чисел не равных нулю. Ребята оченьсрочно

в избранное

tisat

04 сентября 2022

var prod,temp: real; begin prod: =1; repeat readln (temp); if (temp=5) then break; if (temp<>0) then prod: =prod*temp; until (2*2=5); writeln (prod); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Помогите Нужно нарисовать лягушку через программу паскаль abc

Как сделать алгоритмы круг ромб, ромб квадрат и треугольники по кругу в программеКумир?

Перевести данное число из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления

256-цветный рисунок содержит 120 байтов информации. Из скольких точек он состоит?

Очень нужно=(Ребят, как сделать, чтобы…

Найти количество четных чисел от 1 до 100, программа Pascal abc

Четыре приятеля (Ильдус, Мансур, Алмаз и Рамиль) – спортсмены: футболист, велосипедист, теннисист и шахматист

Сканируется цветное изображение размером 2 x 2 дюйма

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: