, написать программу по информатике! Определить - вопрос №18701464 от tsvirko7891 17.09.2020 19:09

Question

Информатика: , написать программу по информатике! Определить сколько можно купить арбузов за 1000 рублей. Цена арбуза (1кг) - 15 руб.,Вес (Random, Т.е. программа с Randomize) - от 2 до 8 кг. Желательно, чтобы программа была правильной, если сверятся с программы Паскаля. ​

tsvirko7891 · Answer

var a,b,c:integer; beginc:=0; while b 1000 do beginc:=c+1;a:=random(2,8); b:=b+a*15; if b 1000 thenc:=c-1; end; writeln( можно купить ,c, ШТ ) end....