, написать программу по информатике! Определить сколько можно купить арбузов за 1000 рублей.
Цена арбуза (1кг) - 15 руб.,
Вес (Random, Т.е. программа с Randomize) - от 2 до 8 кг.
Желательно, чтобы программа была правильной, если сверятся с программы Паскаля.
var a,b,c:integer;
begin
c:=0;
while b<1000 do begin
c:=c+1;
a:=random(2,8);
b:=b+a*15;
if b>1000 then
c:=c-1;
end;
writeln('можно купить ',c,' ШТ')
end.
Что-то вроде такого? Раз для каждого вес рандомный