программа просит ввести 4 символа и выводит их коды через пробел

296

400

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

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

MrNikita5

Информатика

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

Var a,b,c,d: char; begin writeln('введите 4 символа: '); readln(a,b,c,d); writeln(ord(a),' ',ord(b),' ',ord(c),' ',ord(d)); end.

JesusVl

Информатика

4,6(28 оценок)

1) var i: integer; a: array[1..15] of integer; begin randomize; for i: =1 to 15 do a[i]: = random(10)-10; for i: =1 to 15 do write(' ',a[i]); writeln(' '); for i: =1 to 15 do if a[i] mod 2=0 then a[i]: =100; for i: =1 to 15 do write(a[i],' '); end. 2) var i: integer; a: array[1..15] of integer; begin randomize; for i: =1 to 15 do a[i]: =random(10)-10; for i: =1 to 15 do write(' ',a[i]); writeln(' '); for i: =1 to 15 do a[i]: =a[i]-2*a[i]; for i: =1 to 15 do write(a[i],' '); end.