<em><u>Результат выполнения программы:</u></em> 22 33 444
<em><u>2."Современный" вариант</u></em> // PascalABC.NET 3.0, сборка 1076 begin var s:='22 33 444'; var m:=s.ToWords; var a1:=m[0]; var a2:=m[1]; var a3:=m[2]; Writeln(a1,#13#10,a2,#13#10,a3) end.
<em><u>Результат выполнения программы:</u></em> 22 33 444
Uses Crt; var i:integer; a:array[1..10] of integer; count: integer; Begin ClrScr; for i:=1 to 10 do begin a[i]:=i*3; if i mod 2 = 0 then a[i]:= a[i]*(-1); write(a[i],' '); end; <span>End.</span>
Vari, max, y: integer; begin Writeln('Вводите последовательно числа.'); Writeln('Для завершения ввода введите ноль.'); Writeln('----------------------'); max := 0; y := 0; repeat y := y + 1; write(y, ' число:'); readln(i); if (y = 1) then max := i; if (i = 0) then break; if (i > max) then max := i; until i = 0; Writeln('----------------------'); Writeln('Максимальное число: ', max); Writeln(); end.