Agadred
6 год назад
Срочно! Помогите пожалуйста!!!! 2 задачи в Паскале!!
ОТВЕТЫ
Емельян
Aug 5, 2019
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 clt;h thencase c of5:h:=5;4:h:=4;3:h:=3;2:h:=2;end;a[c]:=a[c]+1;end;case h of5:writeln(Отличник);4:writeln(Хорошист);3:writeln(Троечник);2:writeln(Двоечник);end;end.
2)
var b1,b2:real;i:integer;beginb1:=350000+350000*0.1;b2:=350000;for i:=1 to 12 do b2:=b2+b2*9/12/100;if b1gt;b2 thenwriteln(Банк 1 выгоднее на:,b1-b2)elsewriteln(Банк 2 выгоднее на:,b2-b1);end.
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 clt;h thencase c of5:h:=5;4:h:=4;3:h:=3;2:h:=2;end;a[c]:=a[c]+1;end;case h of5:writeln(Отличник);4:writeln(Хорошист);3:writeln(Троечник);2:writeln(Двоечник);end;end.
2)
var b1,b2:real;i:integer;beginb1:=350000+350000*0.1;b2:=350000;for i:=1 to 12 do b2:=b2+b2*9/12/100;if b1gt;b2 thenwriteln(Банк 1 выгоднее на:,b1-b2)elsewriteln(Банк 2 выгоднее на:,b2-b1);end.
78
Смежные вопросы:
