Var
l,k,j,t,n1,m,p,s,n:longint;
begin
read(n);
l:=n div 60;
k:=n mod 60;
if k>34 then
l:=l+1
else
begin
j:=k div 10;
t:=k mod 10;
if t=9 then
j:=j+1
else
n1:=t;
end;
writeln(n1,' ',j,' ',l);
<span>end.</span>
Var a:integer;
begin
writeln ('В каком году был основан город минск?');
writeln ('в 1067г, в 993г, в 1147г');
readln (a);
if (a=1067) then writeln ('Правильно')
else writeln ('Не верно');
end.
Смог ли я вам чем-нибудь помочь?
А= 247(8)=167(10)B = A9(16)=169(10)a.10101100(2) = 172 (10)
b.10101010(2) = 170 (10)
c.10101011(2) = 171 (10)
d.10101000(2) = 168 (10)
Ответ: d.10101000(2)
Начало (типо овал такой)
Ввод (типо параллелограмм)
m == n (В ромбике)
m = 0 (Прямоугольник)
n = 0 (Прямоугольник)
m > n (В ромбике)
n = m (Прямоугольник)
n > m (В ромбике)
m = n (Прямоугольник)
Конец ( овал)