1. Палочки
использовать Чертежник
алг
нач
сместиться в точку (1,1)
опустить перо
сместиться в точку (2,0)
поднять перо
сместиться в точку (1,2)
нц 23 раз
опустить перо
сместиться на вектор (2,-2)
поднять перо
сместиться на вектор (-1,2)
кц
опустить перо
сместиться на вектор (1,-1)
поднять перо
сместиться в точку (-1,-1)
кон
2. Уголки
использовать Чертежник
алг
нач
сместиться в точку (5,7)
нц 5 раз
опустить перо
сместиться на вектор (0,-2)
сместиться на вектор (-2,0)
поднять перо
сместиться на вектор (3,1)
кц
сместиться в точку (0,0)
кон
3. Треугольники
использовать Чертежник
алг
нач
нц 4 раз
опустить перо
сместиться на вектор (0,4)
сместиться на вектор (2,-2)
сместиться на вектор (-2,-2)
поднять перо
сместиться на вектор (2,0)
кц
кон
Объяснение:
картинки


Поделитесь своими знаниями, ответьте на вопрос:
var a, b, c: integer; sr:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
sr:=(a+b+c)/3;
writeln('Среднее арифметическое = ',sr);
end.
Пример:
a = 5
b = 2
c = 8
Среднее арифметическое = 5
2)
var a, b, c, s : integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
s:=0;
if a mod 2 = 0 then s:=s+a;
if b mod 2 = 0 then s:=s+b;
if c mod 2 = 0 then s:=s+c;
writeln('Сумма четных чисел = ',s);
end.
Пример:
a = 8
b = 5
c = 2
Сумма четных чисел = 10
3)
var a, b, c, max, min : integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
if a<b then min:=a else min:=b;
if c<min then min:=c;
writeln('max = ',max,' min = ',min,' Среднее = ',(max+min)/2);
end.
Пример:
a = 5
b = 2
c = 8
max = 8 min = 2 Среднее = 5