<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()
{</span><span>int a,b,k=1,n=1;</span><span>cin >> a >> b;</span>
<span>for (int i = 0; i < n; ++i)
{if ((k % a == 0) && (k % b == 0)) {cout << k; return 0;} else k++; n++;}</span>
}
<span>
</span>
Матричные, струйные и лазерные.
Может получиться так:
//Pascal ABC.NET v 3.3
var
x, s: integer;
begin
readln(x);
s := (x div 100) + (x mod 100) + (x mod 10);
writeln(s);
end.
Var c:char;
begin
writeln('Введи скобку');
readln(c);
case c of
'[', '{', '(':writeln('Вы ввели открывающуюся скобку');
']', '}', ')':writeln('Вы ввели закрывающуюся скобку');
else writeln('Вы ввели не скобку, попробуйте еще раз');
end;
<span> end. </span>
Ответ 2)
32000*32*4*х=503316780
х=503316480/4096000
х=112 секунд=2 минуты