Ответ:
1 байт ВСЕГДА равен 2 пикселя!значит 50*4(4 т.к стороны квадрата!
Program n1;
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 47 do
begin
readln(a);
if (a>0) and (a mod 3=0) then sum:=sum+a;
end;
writeln(sum);
end.
Ответ:
program CountNum;
uses
SysUtils;
var
n, i, c: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (n);
s := IntToStr (n);
c := 0;
for i := 1 to Length (s) do begin
if StrToInt (s [i]) mod 2 = 0 then
Inc (c);
end;
WriteLn ('Количество четных цифр = ', c);
ReadLn;
end.