Составить программу нечетных чисел, ввод склавиатуры, в диапазоне от 300 до 6000

170

329

Посмотреть ответы 1

Ответы на вопрос:

Oxicko

Информатика

4,7(70 оценок)

Type str = array [1..100] of char; var maxs, tmps : str; count, max, tmp, ctmp : integer; procedure reads (var s : str; var len, val : integer); var b : boolean; c : char; i : integer; begin i : = 0; b : = false; repeat read (c); if not b or (c < > ' ') then begin if c = ' ' then b : = true; inc (i); s[i] : = c; c : = '1'; end; until b and (c = ' '); len : = i; readln (val); end; begin assign (input, 'input.txt'); reset (input); reads (maxs, count, max); while not eof do begin reads (tmps, ctmp, tmp); if tmp > max then begin max : = tmp; count : = ctmp; maxs : = tmps; end; end; for tmp : = 1 to count do write (maxs[tmp]); end.