Срочно! Помогите пожалуйста!!!! 2 задачи в Паскале!!
Срочно! Помогите пожалуйста!!!! 2 задачи в Паскале!!
Гость
Ответ(ы) на вопрос:
Гость1)
var a:array[2..5] of integer;c,i,h:integer;beginfor i:=2 to 5 do a[i]:=0;h:=6;for i:=1 to 10 do begin readln(c);if cb2 thenwriteln('Банк 1 выгоднее на:',b1-b2)elsewriteln('Банк 2 выгоднее на:',b2-b1);end.
Не нашли ответ?
Похожие вопросы