Program co;
var
i, n, t, c: integer;
begin
c := 0;
readln(n);
for i := 1 to n do
begin
readln(t);
if (t mod 6 = 0) and (t mod 10 = 4) then
c := c + 1;
end;
writeln('чисел: ', c);
end.
Ребёнок живое существо,а кукла нет! Ребёнок может думать,а кукла не может! Собы́тие<span> — то, что имеет место, происходит, наступает в произвольной </span>точке пространства-времени. А текст <span>зафиксированная на каком-либо материальном носителе человеческая мысль; в общем плане связная и полная последовательность символов.</span>
1)
var a, b: real;
begin
readln(a, b);
if (a > b) then writeln(a)
else
if (a < b) then writeln(b)
else
writeln('a = b');
<span>end.
2)
var a, b, c: integer;
begin
readln(a);
b := a mod 100 div 10;
c := a mod 10;
a := a div 100;
write('a) ');
if (a > c) then writeln(a)
else
if (a < c) then writeln(c)
else
writeln('=');
write('b) ');
if (a > b) then writeln(a)
else
if (a < b) then writeln(b)
else
writeln('=');
write('c) ');
if (c > b) then writeln(c)
else
if (c < b) then writeln(b)
else
writeln('=');
<span>end.
3 даже представить не могу, извините:)</span></span>
Сместиться в точку (1, 1)
поднять перо
сместиться в точку (1, 4)
опустить перо
сместиться в точку (3, 6)
сместиться в точку (5, 4)
сместиться в точку (5, 1)
сместиться в точку (1, 1)
поднять перо
сместиться в точку (2, 2)
опустить перо
сместиться в точку (2, 3)
сместиться в точку (4, 3)
сместиться в точку (4, 2)
сместиться в точку (2, 2)
поднять перо
сместиться в точку (1, 4)
опустить перо
сместиться в точку (5, 4)
по такому же принцепу делай и елку
