Var
a:array[1..12]of integer;
m, n:integer;
Begin
a[1]:=31;a[7]:=31;
a[2]:=28;a[8]:=31;
a[3]:=31;a[9]:=30;
a[4]:=30;a[10]:=31;
a[5]:=31;a[11]:=30;
a[6]:=30;a[12]:=31;
Write('Введите номер месяца -> ');
Readln(m);
Write('Год високосный(1 - да || 0 - нет)?');
Readln(n);
if (m = 2) then Writeln(a[m] + n) else
Writeln(a[m]);
end.
Var a,b,c,p:integer;
begin
writeln('a, b, p:');
readln(a,b,p);
c:=p-(2*a+b);
writeln('c = ',c);
end.
Пример:
a, b, p:
4 10 25
c = 7
да номер 1 и 2 правильно ой мой сыночек какой ты молодец горжусь тобой чувак
Какой страницы world offis например
4-х цветное кажется это 2 бита, 10*10 это 100.
2*100=200битов=25байтов
" из 2056 символов в кодировке Unicode " это уже 2кб * 2-3 байта, в зависимости от ПК.
Конечно текст раз в сто больше рисунка.