напишите прогу в паскале Вводится последовательно 15 чисел найти самое большое п...

July 2022 1 4 Report

напишите прогу в паскале
Вводится последовательно 15 чисел найти самое большое положительно кратное 3

Answers & Comments

Matroskinn Var i, a, b, max: integer;
begin max := -maxint; b := 0; for i := 1 to 15 do begin Write('Введите число: '); Readln(a); if (a mod 3 = 0) then if (a > max) then max := a; end; Write('Самое большое число кратное 3 = ', max);end.Если нигде не ошибся, то должно работать именно так

1 votes Thanks 1

Answers & Comments

2. Open the brackets. Put the verbs into the Past Indefinite. 1. We (to sleep) ...

goc otvet okruglite do desyatyhab64cf627297fdd42ff168a631283604 78186

cho cho cho

2. Open the brackets. Put the verbs into the Past Indefinite. 1. We (to sleep) ...

nekotoroe veshestvo y razlagaetsya s obrazovaniem kisloroda i tverdyh produktov v33bcdb0d48f0080a92a6e539ddf46617 79080

kakova massa atomov kisloroda soderzhashihsya v 075 mol oksida zheleza iii otv137ceb3c5015b140c9d2b1da847f6d49 78183

mol skolko atomov vodoroda vhodit v sostav molekuly etogo veshestva

goc otvet okruglite do desyatyh98d0435bf4e11002183428ea333ade96 85002

chto budet napechatano s46381 ac div100 mod 100 bc mod 1000 div 10 i

napishite progu v paskale vvodyatsya posledovatelnye chislapriznak konca vvoda ot

рекомендуемые вопросы

Helpful Links

Helpful Social