В коробке лежат кубики. Все кубики разного цвета. Сообщение о том, что из коробки достали красный кубик, несет 5 бита информации. Сколько кубиков в коробке?
Будет нарисовано что то типа заглавной буквы "Д" но только у неё правая нижняя палочка не оттуда растёт немного.
Подробнее- смотри скрин внизу (жирная линия на скрине- это так отображается рисующее перо Чертёжника, его в принципе можно увести в другое место в конце алгоритма, чтобы оно там не мешалось, только предварительно подняв перо).
Вот ваша программа (в полном нормальном виде для системы Кумир, без кучи всяких мелких ошибок типа точки вместо запятой и больших букв там где не надо):
использовать Чертежник
алг
нач
сместиться в точку (1,1)
опустить перо
сместиться в точку (1,2)
сместиться в точку (5,2)
поднять перо
сместиться в точку (5,1)
опустить перо
сместиться в точку (4,2)
сместиться в точку (4,5)
сместиться в точку (3,5)
сместиться в точку (2,4)
сместиться в точку (2,2)
кон
А вот я поправил программу, чтобы она рисовала правильную букву "Д", и ещё после уводила перо в сторону, чтобы оно не мешало смотреть рисунок. Результат работы этой программы- смотри на втором скрине.
Будет нарисовано что то типа заглавной буквы "Д" но только у неё правая нижняя палочка не оттуда растёт немного.
Подробнее- смотри скрин внизу (жирная линия на скрине- это так отображается рисующее перо Чертёжника, его в принципе можно увести в другое место в конце алгоритма, чтобы оно там не мешалось, только предварительно подняв перо).
Вот ваша программа (в полном нормальном виде для системы Кумир, без кучи всяких мелких ошибок типа точки вместо запятой и больших букв там где не надо):
использовать Чертежник
алг
нач
сместиться в точку (1,1)
опустить перо
сместиться в точку (1,2)
сместиться в точку (5,2)
поднять перо
сместиться в точку (5,1)
опустить перо
сместиться в точку (4,2)
сместиться в точку (4,5)
сместиться в точку (3,5)
сместиться в точку (2,4)
сместиться в точку (2,2)
кон
А вот я поправил программу, чтобы она рисовала правильную букву "Д", и ещё после уводила перо в сторону, чтобы оно не мешало смотреть рисунок. Результат работы этой программы- смотри на втором скрине.
использовать Чертежник
алг
нач
сместиться в точку (1,1)
опустить перо
сместиться в точку (1,2)
сместиться в точку (5,2)
сместиться в точку (5,1)
поднять перо
сместиться в точку (4,2)
опустить перо
сместиться в точку (4,5)
сместиться в точку (3,5)
сместиться в точку (2,4)
сместиться в точку (2,2)
поднять перо
сместиться в точку (7,2)
кон
Объяснение:
Const n=12;
Var T:array[1..n] of real;
i,imax:integer;
sr:real;
Begin
writeln('Введите среднии температуры за каждый месяц года');
sr:=0;
For i:=1 to n do
Begin
read(T[i]);
sr:=sr+T[i];
End;
sr:=sr/n;
writeln('Среднегодовая температура = ',sr:0:2);
imax:=1;
For i:=2 to n do
if T[i]>T[imax] then imax:=i;
writeln('Самая высокая среднемесячная температура была в месяце');
writeln('под номером ',imax,' и составила ',T[imax]:0:2);
readln;
End.
Вроде так.