№1
Блок-схема в среде программирования-3
Ввод данных и исправление ошибок -4
Вывод-5
№2
В паинте нарисовал
№3
program z1
var r;d: real;
begin
readln (r);
d=2r;
writeln (d);
end.
№5
6-12
7-14
ну я тут тебе решила)) хе-хе..
50. 10 01 10 00 11, следовательно наибольшее число подряд идуих нулей - 3.
51. 3) АИНГЧАН
55-56. на фотографиях
Var
x,y:integer;
a:array [1..12] of string;
begin
a[1]:=cock;
..
a[12]:=monkey;
read(x);
y:=(abs(2016-x) )mod 12;
write(a[y]);
end.
Вроде должно работать. Проверить не могу - сижу с телефона
Ответ: а[3] = 2, a[4] =2.