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

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.

Код

#include < bits/stdc++.h>

using namespace std;

int main() {

    int d, m;

    cin > > d > > m;

    switch (m) {

        case 1:

            if (d < 20) cout < < "capricorn" < < endl;

            else cout < < "aquarius" < < endl;

            break;

        case 2:

            if (d < 19) cout < < "aquarius" < < endl;

            else cout < < "pisces" < < endl;

            break;

        case 3:

            if (d < 21) cout < < "pisces" < < endl;

            else cout < < "aries" < < endl;

            break;

        case 4:

            if (d < 20) cout < < "aries" < < endl;

            else cout < < "taurus" < < endl;

            break;

        case 5:

            if (d < 21) cout < < "taurus" < < endl;

            else cout < < "gemini" < < endl;

            break;

        case 6:

            if (d < 22) cout < < "gemini" < < endl;

            else cout < < "crayfish" < < endl;

            break;

        case 7:

            if (d < 23) cout < < "crayfish" < < endl;

            else cout < < "leo" < < endl;

            break;

        case 8:

            if (d < 23) cout < < "leo" < < endl;

            else cout < < "virgo" < < endl;

            break;

        case 9:

            if (d < 23) cout < < "virgo" < < endl;

            else cout < < "libra" < < endl;

            break;

        case 10:

            if (d < 23) cout < < "libra" < < endl;

            else cout < < "scorpio" < < endl;

            break;

        case 11:

            if (d < 23) cout < < "scorpio" < < endl;

            else cout < < "sagittarius" < < endl;

            break;

        case 12:

            if (d < 22) cout < < "sagittarius" < < endl;

            else cout < < "capricorn" < < endl;

    }

    return 0;

}

если интересует решение на классическом паскале, предлагаю просто поддерживать текущее, предыдущее и пред-предыдущее значения в ряду, и в цикле обновлять ответ.

обрати внимание! longint может хранить значения только до , поэтому конкретно в этой программе вывод будет достоверным только для n ≤ 46. ты можешь сделать текущую, предыдущую и пред-предыдущую переменные типа int64, и тогда максимальное значение n возрастёт до 92. для больших n тебе придётся писать длинное сложение.

код

var

i, n, pred, predpred, cur: longint;

begin

read(n);

if n = 1 then writeln(1)

else if n = 2 then writeln('1 1')

else write('1 1 ');

if n < 3 then exit;

pred : = 1;

predpred : = 1;

for i : = 3 to n do

begin

  cur : = pred + predpred;

  write(cur, ' ');

  predpred : = pred;

  pred : = cur;

end;

writeln;

end.