Вопрос задан 26.06.2018 в 07:01. Предмет Информатика. Спрашивает Подольский Тимофей.

Написать программу с постусловием Repeat для вычисления произведения двух чисел суммой

0 0
Перейти к ответам

Ответы на вопрос

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Supreme Jason.

Program program1;
var
a, b, p: integer;
begin
write('Введите два числа: ');
readln(a, b);
p := 0;
repeat
p := p + a;
b := b - 1;
until (b = 0);
writeln(a, ' * ', b, ' = ', p);
end.

0 0

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос