Условие : покупатель должен заплатить в кассу s рублей. у него имеются 10, 50, 100, 500, 1000 и 5000 рублей сколько купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных купюр? что не так в коде? : var s, i,q, f,t, z,y: integer; begin write('введите сумму: '); readln(s); while s> 5000 do s: =s-5000; i: =i+1; writeln('купюр "5000" всего: ',i); while s> 1000 do s: =s-1000; q: =q+1; writeln('купюр "1000" всего: ',q); while s> 500 do s: =s-500; f: =f+1; writeln('купюр "500" всего: ',f); while s> 100 do s: =s-100; t: =t+1; writeln('купюр "100" всего: ',t); while s> 50 do s: =s-50; z: =z+1; writeln('купюр "50" всего: ',z); while s> 10 do s: =s-10; y: =y+1; writeln('купюр "10" всего: ',y); end.

Ввашем варианте после while необходимо писать begin, а после writeln - end. но само по себе решение некрасивое. вот вам еще два на выбор. 1. без массива var   s,n: integer; begin   write('введите сумму: '); read(s);   n: =s div 5000;   if n> 0 then begin       writeln('банкнот "5000" всего: ',n);       s: =s mod 5000       end;   n: =s div 1000;   if n> 0 then begin       writeln('банкнот "1000" всего: ',n);       s: =s mod 1000       end;   n: =s div 500;   if n> 0 then begin       writeln('банкнот "500" всего: ',n);       s: =s mod 500       end;   n: =s div 100;   if n> 0 then begin       writeln('банкнот "100" всего: ',n);       s: =s mod 100       end;   n: =s div 50;   if n> 0 then begin       writeln('банкнот "50" всего: ',n);       s: =s mod 50       end;   n: =s div 10;   if n> 0 then begin       writeln('банкнот "10" всего: ',n);       s: =s mod 10       end;   if s> 0 then writeln('недоплачено: ',s) end. пример: введите сумму: 162504 банкнот "5000" всего: 32 банкнот "1000" всего: 2 банкнот "500" всего: 1 недоплачено: 4 2. с массивом const   k: array[1..6] of integer=(5000,1000,500,100,50,10); var   s,n,i: integer; begin   write('введите сумму: '); read(s);   for i: =1 to 6 do begin       n: =s div k[i];       if n> 0 then begin           writeln('банкнот "',k[i],'" всего: ',n);           s: =s mod k[i]           end       end;   if s> 0 then writeln('недоплачено: ',s) end. пример введите сумму: 15470 банкнот "5000" всего: 3 банкнот "100" всего: 4 банкнот "50" всего: 1 банкнот "10" всего: 2

n = 2^i

n = 2^5 = 32

ответ. в классе 32 ученика

если есть д ш и в то это не куб а параллелипипед

var 

a,b,c,r: real;

begin

readln(a,b,c,r);

if (2*r< a) and (2*r< b) and  (2*r< c)

then writeln('поместится')

else writeln ('не поместится');

end.

для куба достаточно одного условия (2*r< a)