Однажды нам предложили сделать робота. Вместе с моей подругой мы взялись за это дело - накопали в интернете кучу информации, поискали в журналах и книгах... К концу недели всё было готово.
Осталось самое важное - как управлять этим устройством? А вдруг, он не поймет команды?...
Мы долго пытались разобраться в этом, но было уже около 4-х часов ночи и мы легли спать.
Утро. 6.00. Будильник. Робота нет.
Мы обыскали всю квартиру, даже в ванную заглянули - нет.
Потом оказалось, что мы случайно нажали кнопку запуска и еще какую-то, из-за чего робот включился и уполз под шкаф.
1)
var a,b:integer;
begin
writeln('введите стороны прямоугольника:');
write('первая сторона равна:');readln(a);
write('вторая сторона равна:');readln(b);
write('площадь прямоугольника со сторонами ',a,' и ',b,' равна ',a*b);
end.
2)
Var x: integer;
Begin
write('введите число х=');
readln(x);
If x>=2 Then write('y=',sqrt(x))
Else write('y=',x);
End.
Единственным побуждением к труду была одна - единственная любовь к Родине.
1 символ = 8 байт
следовательно 200*8 =1600