Var
a, b: integer;
Begin
Writeln('Введите 2 числа');
Read(a,b);
if (a*b mod 3 = 0) then Writeln('Произведение чисел ', a, ' и ', b, ' делится нацело на 3')
else Writeln('Произведение чисел ', a, ' и ', b, ' нацело на 3 не делится');
end.
1)33554432:8:1024:1024=4 Гб
И это, к сожалению, все, что Я знаю XD
Program n1;
var n: real;
begin
write('введите число: ');
readln(n);
if n>0 then writeln(n*n) else writeln(n*n*n);
end.
if (($a+$b+$c) % 2 = 0) {$a = 2*$a; $b = 2*$b; $c = 2*$c;}
Pascal:
var
a, b, c, d: integer;
begin
read(a); read(b); read(c); d:=0;
d:=c; c:=a; a:=d;
writeln(a, ' ',b, ' ',c);
end.