Var
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');Read(A);
Write('B = ');Read(B);
For A:=A to B do
P:=P*A;
WriteLn(P)
End.
Первый компьютер и был, и не был. Не был потому, что его автор Чарльз Бэббидж<span>не смог его построить: в то время (он начал свою работу в 1834 году) подобная машина могла быть только механической. Но точность изготовлении деталей была слишком высока по их меркам. Поэтому финансирование проекта прекратилась. Но все же первый компьютер был - не осуществленный, но продуманный до мелочей и тщательно вычерченный. Кроме чертежей, осталась еще и подробное словесное описание, составленной сотрудницей </span>Бэббиджа Августой Адой Лавлейс, разработанная ею язык программирования и несколько первых в истории программ (перфокарты, машина Бэббиджа была способна выполнять программы). Его основные части были теми же, что и в каждом современном компьютере: устройства ввода данных (клавиатура); запоминающее устройство, способное хранить исходные данные; арифметическое устройство (-,+,·,:<span>); устройство для вывода результата.</span>
var d, m:integer;
var h:real;
begin
readln(d);
m := d * 2;
h := m / 60;
m := m mod 60;
write('Количество часов = ' + Int(h) + ' количество минут = '+ m)
end.
Использовать Робот
алг
нач
нц 2 раз
нц 4 раз
закрасить
вниз
кц
нц 6 раз
закрасить
вправо
кц
нц 4 раз
закрасить
вверх
закрасить
кц
нц 4 раз
влево
кц
нц 2 раз
вниз
закрасить
кц
нц 2 раз
вправо
закрасить
кц
вверх
закрасить
нц 4 раз
если справа свободно и снизу свободно то
вправо
вниз
все
кц
кц
кон