Вычислить произведение 2-ух натуральных чисел используя лишь операцию сложения В паскале

0 голосов
94 просмотров

Вычислить произведение 2-ух натуральных чисел используя лишь операцию сложения

В паскале


Информатика (57.1k баллов) | 94 просмотров
Дан 1 ответ
0 голосов

Я, в основном, программы на С++ пишу, но из школы про Паскаль кое-что помню (в смысле, попытаюсь написать на Паскале).

Program A1;

var a,b,c,i:integer;

begin

write('Enter the a: ');

read(a);

writeln('Enter the b: ');

read(b);

с:=0;

for i:=1 to a Do

     c:=c+b;

writeln('a*b=',c:5:0);

end.

Объясняю (начинаю сразу с цикла for): что значит произведение двух натуральных чисел а и b - это означает, сложить b с самим собой по а раз (можно и наоборот). Например, a=5, b=3. Переменную с=0 будем складывать с b.

i=1      c=5+0;

i=2      c=5+5;

i=3      c=10+5;   //c=15

Вот и есть ответ: 5*3=15.

(195 баллов)