Да это правда
:))))
Не за что помочь
Если считать, что в кодировке unicode для записи символа используется 16 бит (в школьных задачах обычно так и считают), то:
16*K-8*K = 480 ⇒ K = 60
Программа с исправленными СИНТАКСИЧЕСКИМИ ошибками:
program pr1;
var a, b, d: integer;
begin
readln(a);
readln(b);
d:=1;
while (d<>a) or (b mod 4=0) do begin
d:=d+1;
readln(b);
end;
writeln(d);
end.
var a,b,c: integer;
begin
readln (a,b,c);
if ((a > b) and (a < c)) or ((a < b) and (a > c)) or ((a<b) and (b=c)) or ((a<b) and (a=c)) or ((a<c) and (a=b)) then writeln(a)
else if ((b > a) and (b < c)) or ((b < a) and (b > c)) then writeln(b)
else writeln(c);
end.