Задать вопрос
13 декабря, 03:15

Введите два любых числа и найдите их произведение, используя только операцию сложения.

+4
Ответы (1)
  1. 13 декабря, 07:09
    0
    Var

    s, i, b, a:integer;

    begin

    Writeln ('Введите два целых числа') ;

    readln (a, b) ;

    s:=0;

    for i:=1 to b do s:=s+a;

    writeln (s) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Введите два любых числа и найдите их произведение, используя только операцию сложения. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Создайте программы на языке PascalABC: 1) Введите два числа (например A=5 и В=8) и найдите их произведение, используя цикл с постусловием и только операцию сложения.
Ответы (1)
Помогите составить программы Введите несколько чисел. Найдите произведение чисел меньших 7. Введите несколько чисел. Найдите количество двузначных чисел. Введите несколько чисел.
Ответы (1)
Выполнить операцию сложения над двоичными числами: а) 101010+1101 б) 1010+1010 в) 10101+111 Выполнить операцию умножения над двоичными числами: а) 1010*11 б) 111*101 в) 1010*111
Ответы (1)
Написать в тетради программу на Pascal: Спросить у пользователя три числа. Вывести сумму чисел, среднее значение. Пример: Введите а: 5 Введите b:4 Введите c:3 Сумма: 12 Среднее: 6
Ответы (1)
Даны 3 стороны треугольника АВС-напечатать какой имеет вид треугольник. Проверьте где у меня ошибки: var a, b, c:integer; begin write ('введите a=') ; readln (a) write ('введите b=') ; readln (b) write ('введите c=') ;
Ответы (1)