По паскалю амурам скучать не приходится: работы каждый день - хоть отбавляй! при этом известно, что в одном колчане у амура s стрел. вчера амур расстрелял k колчанов, а сегодня еще c стрел. сколько полных колчанов расстрелял амур за последние два дня? формат входных данных s=2 k=8 c=4 вводится 3 числа: количество стрел в одном колчане s ( s < longint ), количество расстрелянных колчанов k ( k < longint ) и количество расстрелянных стрел c ( c < longint ). формат выходных данных вывести количество полных колчанов, расстрелянных амуром за два дня.

👇

Увидеть ответ

Ответ:

Данил20010001

15.06.2020

Var
s, k, c: int64;
begin
readln(s, k, c);
write(k + (c div s));
end.

4,4(13 оценок)

Открыть все ответы

Ответ:

masloshick

15.06.2020

Romanf romanf отличник 2013-01-10t16: 13: 22+00: 00 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.

4,6(13 оценок)

Ответ:

foysogstoxyo

15.06.2020

Червь – программа, которая делает копии самой себя. Ее вред заключается в захламлении компьютера, из-за чего он начинает работать медленнее. Отличительной особенностью червя является то, что он не может стать частью другой безвредной программы.Троянская программа (троянский конь, троян)Троянская программа маскируется в других безвредных программах. До того момента как пользователь не запустит эту самую безвредную программу, троян не несет никакой опасности. Тронская программа может нанести различный ущерб для компьютера. В основном трояны используются для кражи, изменения или удаления данных. Отличительной особенностью трояна является то, что он не может самостоятельно размножаться.

4,8(11 оценок)

Это интересно:

Образование-и-коммуникации

07.03.2022

Как читать показания линейки: простой гайд...

Хобби-и-рукоделие

25.10.2020

Как связать на спицах игрушечного медведя...

Финансы-и-бизнес

17.08.2020

Как перевести деньги через Western Union: шаг за шагом...

Образование-и-коммуникации