Помогите, пожалуйста, написать программу по информатике!
Определить сколько можно купить арбузов за 1000 рублей.
Цена арбуза (1кг) - 15 руб.,
Вес (Random, Т.е. программа с Randomize) - от 2 до 8 кг.
Желательно, чтобы программа была правильной, если сверятся с помощью программы Паскаля.
(программу писать на языке Паскаля)
Определить сколько можно купить арбузов за 1000 рублей.
Цена арбуза (1кг) - 15 руб.,
Вес (Random, Т.е. программа с Randomize) - от 2 до 8 кг.
Желательно, чтобы программа была правильной, если сверятся с помощью программы Паскаля.
(программу писать на языке Паскаля)
More Questions From This User See All
Answers & Comments
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.
Что-то вроде такого? Раз для каждого вес рандомный