Var a,b,c:integer;
begin
c:=1;
for a:=5 downto 2 do begin
for b:=5 downto c do begin
write(a);
end;
writeln('');
c:=c+1;
end;
end.
Использовать Черепаха
алг
нач
цел а, б
нц для а от 1 до 7
нц для б от 1 до 11
опустить хвост
вправо(90)
вперед(20)
вправо(90)
вперед(10)
вправо(90)
вперед(20)
вправо(90)
вперед(10)
вправо(90)
вперед(20)
влево(90)
поднять хвост
кц
назад(10)
влево(90)
вперед(220)
вправо(90)
кц
<span>кон</span>
28800 бит/с = 3600 байт = 3,515625 Кб
Ответ: <span>а)3600 байт</span>
Ввести 3 числа → сложить все 3 числа → поделить получившуюся сумму на 3 → вывести результат.
короче: ввести 3 числа → вывести результат (a1+a2+a3)/3
Var a,b,c:longint;
Begin
read(a,b,c);
if c mod 2=1 then
writeln('Нечетное') else
writeln('Четное');
if ((c>=a) and (c<=b)) then
writeln('YES') else
writeln('NO');
<span>End.</span>