Мне задали сделать реферат на тему "робот будущего", (пишу в информатику, ведь она связана с робототехникой которой здесь нет (я сделал и запрограммировал робота за 1 урок, хотя остальные делали 3 дня))
Роботы – это механические человека выполнять операции по заложенной в них программе и реагировать на окружение. Трансгуманистическое значение робототехники состоит не только в том, что эта область связана с киборгизацией и искусственным интеллектом, но кроме того, – развитие роботов сможет значительно изменить образ жизни человека, хотя и не меняя при этом его самого.
Var A:real; k:integer; Begin Write('Стоимость одной газеты: ');ReadLn(A); Write('Количество газет: ');ReadLn(k); if k <= 50 then WriteLn('Заработок продавца: ',k*A,' руб.') else WriteLn('Заработок продавца: ',(A*((k-50)*1.2+50)):0:2,' руб.') End.
Var k:integer; S,A:real; Begin Write('Стоимость одной газеты: ');ReadLn(A); Write('Количество газет: ');ReadLn(k); if k <= 50 then S:=k*A else S:=A*((k-50)*1.2+50); WriteLn('Заработок продавца: ',S:0:2,' руб.'); End.
Пример работы программы:
Стоимость одной газеты: 30.15 Количество газет: 200 Заработок продавца: 6934.50 руб.
Var A:real; k:integer; Begin Write('Стоимость одной газеты: ');ReadLn(A); Write('Количество газет: ');ReadLn(k); if k <= 50 then WriteLn('Заработок продавца: ',k*A,' руб.') else WriteLn('Заработок продавца: ',(A*((k-50)*1.2+50)):0:2,' руб.') End.
Var k:integer; S,A:real; Begin Write('Стоимость одной газеты: ');ReadLn(A); Write('Количество газет: ');ReadLn(k); if k <= 50 then S:=k*A else S:=A*((k-50)*1.2+50); WriteLn('Заработок продавца: ',S:0:2,' руб.'); End.
Пример работы программы:
Стоимость одной газеты: 30.15 Количество газет: 200 Заработок продавца: 6934.50 руб.
