Написать программу на языке Pascal:Гречу массой x г, рассыпают по пакетам: по a ...

July 2022 1 4 Report

Написать программу на языке Pascal:Гречу массой x г, рассыпают по пакетам: по a г в каждый. Пакетов может быть неограниченное количество. Сколько гречи будет в последнем заполненном пакете?

Answers & Comments

NiGhtWolFs

Verified answer

Var x,a,r:integer;
begin
write ('Введите массу гречи: ');
readln (x);
write ('Введите сколько грамм гречи пойдёт в каждый пакет: ');
readln (a);
r:=x mod a;
writeln ('В последнем пакете будет',r,' грамм гречи');
end.

Answers & Comments

Verified answer

nuzhno sochinenie rassuzhdenie na temu soglasny li vy s utverzhdeniem aspushkina

obshee kolichestvo pyaterok v dva raza menshe obshego kolichestva dvoek poluchennyh n

rebyata srochno pomogite obyasnit kazhduyu stroku etoj programmy

nuzhen sloobrazovatelnyj razbor slova sprosonya vyruchajte

rebyata vyruchajte 7 klass

kakie iz ukazannyh nizhe veshestv reagiruyut s oksidom kaliya azno b naoh v h2s

obrazujte polozhitelnye otricatelnye i voprositelnye formy sleduyushih predlozhe

v pryamougolnom treugolnike gipotenuza c25 sm odin iz ego katetov a24 sm na

iz punktov a i v rasstoyanie mezhdu kotorymi 40 km navstrechu drug drugu otpravilis

na risunke mqnp ugol 1 ugolu 2 dokazhite chto mn parallelno pq

рекомендуемые вопросы

Helpful Links

Helpful Social