3.
var
a, b : integer;
begin
readln(a, b);
if ((a mod 10) mod 2 = 0) and ((b mod 10) mod 2 = 0) then writeln('Верно') else writeln('Не верно');
end.
4.
var
a : integer;
begin
readln(a);
if (a < 10000) and (a > 999) and (a mod 3 = 0) then writeln('Является') else writeln('не является');
end.
Решение
Весь текст содержит 60×40×24= 57 600 байт
Далее 57600:1024=56,25 Килобайт
Пожалуйста))
Это на С++:
#include <stdio.h>
int main ()
{
int a = 0, b = 0, c = 0;
scanf ("%d %d %d", &a, &b, &c);
printf ("%d+%d+%d=%d\n", a, b, c, a+b+c);
printf ("%d*%d*%d=%d\n", a, b, c, a*b*c);
printf ("(%d+%d+%d)/3=%f", a, b, c, (a+b+c)/3.0);
}
Var s : string;
i : integer;
begin
readln(s);
for i := 1 to length(s) do writeln(s[i]);
end.
Для решения задачи следует использовать формулу i = log(2)N (или N = 2^i).
Объем памяти для кодирования 1 пикселя = log(2)65536 = 16 бит = 16/8 байт = 2 байта