ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ ДЛЯ PASCAL ABC (Задача в Описании)

Без имени, 294 просмотра

-1

Найти произведение mult2 чисел от n до m
Тестовые данные n=2 m=2; n=2 m=4; n=5 m=3;
В комментарии к программе для каждого тестового n, m написать, сколько раз выполняется цикл,
какое значение n, m, mult2 выводится
Значение n, m вводится с помощью read();
Если n<= m то
(В цикле подсчитать и вывести значение mult2: «Произведение чисел от n=... до m= равно mult2=...»)
иначе (Вывести сообщение «Ошибочно введено n=... m=... Работа программы закончена» )

Ответы:

interacia

Program For1;
var
i:integer;
mult2,n,m:integer;
begin
Writeln('Введите целое число n=');
read(n);
Writeln('Введите целое число m=');
read(m);
mult2:=1;
if n<=m then
begin
for i:=n to m do mult2:=mult2*i;
Writeln('Произведение чисел от n=... до m= равно mult2=',mult2);
end
else Writeln('Ошибочно введено n=... m=...Работа программы закончена');
end.

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.