Регистрация
eldarsorokin2
12.02.2021 20:27
Информатика
Есть ответ 👍

Определите значение переменной а после выполнения фрагмента программы а=15 if а<10 а=10​

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

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

andreyfutbol1
andreyfutbol1
4,4(63 оценок)

var s: string;

  i: byte;

begin

writeln('введите слово: ');

readln(s);

writeln;

writeln('их номера в алфавите: ');

for i: =1 to length(s) do

case s[i] of 

  'а'..'я' : write(ord(s[i])-1038+' ');

  'а'..'я': write(ord(s[i])-1070+' ');

end;

readln

end.

Популярно: Информатика