Сколько трехзначных чисел можно записать с цифр 0 1 2 3 при условии что цифры могут повторяться.выпишите такие числа

Всего 48 вариантов, 3*4*4=48 100 101 102 103 110 111 112 113 120 121 122 123 130 131 132 133 200 201 202 203 210 211 212 213 220 221 222 223 230 231 232 233 300 301 302 303 310 311 312 313 320 321 322 323 330 331 332 333

Объяснение:

program XandY;

const

rndlim=50;

var

x, y : integer;

begin

x:=random(rndlim);

y:=random(rndlim);

Writeln('x=',x,' y=', y);

Writeln('x+y = ',x+y);

Writeln('x-y = ',x-y);

Writeln('x*y = ',x*y);

Writeln('x^2 + y^2 = ',sqr(x)+sqr(y));

end.

Запуск:

Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64

Copyright (c) 1993-2012 by Florian Klaempfl and others

Target OS: Linux for x86-64       

Compiling main.pas                

Linking a.out                     

16 lines compiled, 0.2 sec

x=27 y=29                          

x+y = 56                          

x-y = -2                          

x*y = 783                           

x^2 + y^2 = 1570

// идея решения: a * b (если b > 0) эквивалентно сумме a + a + ... + a (b раз)

// если b < 0, меняем знак у a

// если b = 0, ответ всегда 0

 

#include <iostream>

 

int mult(int a, int b) {

 if (b == 0) return 0;

 if (b < 0) return mult(-a, -b);

 int product = 0;

 while (b > 0) {

   product += a;

   b--;

 }

 return product;

}

 

int main() {

 int a, b;

 std::cin >> a >> b;

 std::cout << mult(a, b);

 return 0;

}

 

Пример ввода: -2 -7

Пример вывода: 14