Вшведской эстафете 100+200+400+800 метров на первые два этапа претендуют 5 бегунов, на остальные - 8. сколько вариантов формирования команды может составить тренер? требуемый для записи этого объем информации?

На первый этап можно выбрать из 5 вариантов, на второй из четырех, на третий из восьми, на четвертый из семи. всего вариантов 5 * 4 * 8 * 7 = 1120. число бит  если исчислять целым числом битов, то минимальное возможно целое число битов равно 11.

1. подумать над алгоритмом2. вот сам алгоритм: а. спросить у пользователя значенияб. расчитать ответв. выдать ответ на экран3. написать код в паскале4. исправить ошибки компиляции5. протестировать, вводить разные числа6. обнаружила, что если вводить числа наугад ответ получается отрицательным иногда7. вставить код проверки введенных пользователем значений8. убрать ошибки компиляции9. протестировать10. готово

 

а вот и сама программа:

 

program aerobus; uses crt; const totalplace = 160; var businessplaces, economyplaces: integer; businessprice, economyprice: real; totalcharge: real; a,b: integer; correctinput: boolean; begin clrscr; businessplaces: =totalplace div 4; economyplaces: = totalplace - businessplaces; writeln('business places count: ', businessplaces); writeln('economy places count: ', economyplaces); correctinput: =false; while not correctinput do begin write('please input business class ticket price: '); readln(businessprice); if(businessprice> 0) then begin correctinput: =true; end else begin writeln('the price should be a positive number, please try again'); end; end; economyprice: =businessprice/2; writeln('economy ticket price is: ', economyprice: 0: 2); correctinput: =false; while not correctinput do begin write('how many business tickets are left? : '); readln(a); if(a> =0) and (a< =businessplaces)then correctinput: =true; if(a< 0) then begin writeln('please input a positive number or 0, please try again'); end; if(a> businessplaces) then begin writeln('please input a number which is less or equal to the tolal business place count, please try again'); end; end;

correctinput: =false; while not correctinput do begin write('how many economy tickets are left? : '); readln(b); if(b> =0) and (b< =economyplaces)then correctinput: =true; if(b< 0) then begin writeln('please input a positive number or 0, please try again'); end; if(b> economyplaces) then begin writeln('please input a number which is less or equal to the tolal economy place count, please try again'); end;

end; totalcharge: =(businessplaces-a)*businessprice; totalcharge: =totalcharge+(economyplaces-b)*economyprice; writeln('the total charge is: ', totalcharge: 0: 2); writeln; writeln('press enter to exit'); readln; end.

 

Amicosinglun.exe - это исполняемый файл (программа) для windows. расширение имени файла  .exe  - это аббревиатура от . слова  executable  — исполнимый. необходимо запускать исполняемые файлы от проверенных производителей программ, потому что исполняемые файлы могут потенциально изменить настройки компьютера или нанести вред вашему компьютеру. бесплатный форум с информацией о файлах может вам разобраться является ли amicosinglun.exe вирусом, трояном, программой-шпионом, рекламой, которую вы можете удалить, или файл принадлежит системе windows или приложению, которому можно доверять. по поводу автозагрузки: попробуй установить программу avast cleanup, она умеет убирать файлы автозагрузки