Составьте алгоритмы управленИя чертежником , последний исполнениям которых будут получены следующие рисунки (только а

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.

месяцы,каждый месяц в каждом времени года-это и есть классификация

var a,b: integer;

begin

  read(a,b);

  writeln("s=",a*b/2);

end.

веселье-грусть(эмоции, состояние человека)

весна-осень(месяцы года)

монитор-клавиатура(устройства компютера)

стол-диван(мебель)

береза-осина(деревья)

арбуз-гуляш(продукты питания)