Паскаль
if (x<100) and (x>9) and (x mod 19 = 0) then count += 1
В 1 килобайте(Кб )1024 байт(б)
в 1 байте 1/1024 килобайт
в 30 байт 30/1024 килобайт=15/512 Кб
var a,b,a_end,sum,dob : integer;
begin
writeln('enter a = ');
read(a);
writeln('enter b = ');
read(b);
sum:= 0;
dob:= 1;
a_end:= a mod 10;
if (a_end mod 2) = 0 then
begin
sum:= a + b;
writeln('sum = ',sum);
end
else
begin
dob:= a*b;
writeln('dob = ',dob);
end;
end.
Проверка почтового ящика администратора персонального компьютера