дано М-монахов и N-пирогов
монахи едят пироги в зависимости от ранга
1-ого ранга 10 пирогов, 2-ого 5, 3-его 0,5
сколько было 1-=ого 2ого 3его рангов монахов в отдельности?
вот моёмо. но паскаль ругается
{n - kol-vo pirogov,
m - kol-vo monahov,
r1,r2,r3 - sootvetstvenno rangi monahov. }
Program Monahi;
var
n, r1, r2, r3: real;
i,m : byte;
begin
writeln('Vvedite kol-vo pirogov = ');
read(n);
writeln('Vvedite kol-vo monahov = ');
read(m);
r1:=0;
r2:=0;
r3:=0;
for i:=1 to m do
if (n mod 10) >= 10) then
r1:=r1+1;
else if ((n mod 5)>=5) then
r2:=r2+1;
else if ((n mod 0.5)>=0.5) then
r3:=r3+1;
writeln('r1 = ',r1,'r2 = ',r2,'r3 = ',r3);
readln();
end.
| Замечание: |
 Название темы конкретизировал. Модератор. |