Прям сейчас 12: 04! прошу ! ! возраст: 16 квартира: 248

var a,c: integer;

begin

write('квартира');

read(a);

c: =a*16;

if(a> 248) then write(a) else write(c);

end.

// pascalabc.net 3.1, сборка 1198 от 11.03.2016 begin   var bnk: =arr(500,100,50,10);   var s: =readinteger('сдача, руб: ');   var kol: =arr(0,0,0,0);   for var i: =0 to 3 do begin       kol[i]: =s div bnk[i];       s: =s mod bnk[i]       end;   if s< > 0 then writeln('сдачу дать невозможно')   else begin       writeln('следует дать: ');       for var i: =0 to 3 do           writeln('банкнот по ',bnk[i],' руб - ',kol[i],' шт.')       end end. тестовое решение: сдача, руб: 850 следует дать: банкнот по 500 руб - 1 шт. банкнот по 100 руб - 3 шт. банкнот по 50 руб - 1 шт. банкнот по 10 руб - 0 шт.

Dim n as integer        dim massiv() as integer        dim summ as integer        dim i as integer        n = inputbox("введите n")        redim massiv(n)        for i = 0 to n             massiv(i) = int(rnd() * 100) + 1        next n = massiv(massiv.length - 1) for i = 0 to massiv.length - 1             if massiv(i) < n then summ += massiv(i)        next '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 msgbox (summ)