На стандартной панели инструментов
//Pascal
var a, b:integer;
begin
readln(a,b);
if a>0 then writeln(a*b);
if (a<0) and (b<>0) then writeln(a/b)
else if (a<0) and (b=0) then writeln('Делить на 0 нехорошо!');
end.
1) 10 секунд.
16 бит = 2 байта.
32КГц = 32.000 Гц.
=640.000Байт=625КБайт=0,61МБайт
Program n1;
var k,m,n: integer;
begin
readln(k,m,n);
if (k mod 2<>0) and (m mod 2<>0) and (n mod 2<>0) then write('да') else write('нет');
end.