Составить программу которая кодирует введеное с клавиатуры слово заменяя буквы их увеличинными на 3
Emlrd
1
02.10.2019 04:10
0
Другие вопросы по теме Информатика
Dovids
06.09.2019 16:40
сашагалкина1
04.07.2019 08:30
jahinanaily
04.07.2019 08:30
Onoo
04.07.2019 08:30
karinasurshkose
04.07.2019 08:30
nikitleas
04.07.2019 08:30
shapovalova12345
16.03.2020 10:58
Популярные вопросы
- За первый час автомобиль проехал 70 км что оставило 14% всего пути. Сколько километров...
3 - 2. «Необычайное приключение...» написано в форме диалога, и Маяковский отмечал,...
3 - ДУЖЕ ЗАПОВНИТИ ТАБЛИЦЮ ЗА БАЛАДОЮ НА СХІД І ЗАХИД!...
3 - Напишите большой реферат по Технологии для мальчиков (7 класс) P.S.Реферат должен...
3 - написать не большой рассказ про будущее на английском языке+ перевод. ...
1 - . Спростити вираз: ctg(-α)•tg(-α) - sin ²α...
2 - Саздың пайдасы мен қолдануы?...
1 - Длина одной стороны прямоугольника 5 см, а гой - на 3 см больше. Найди площадь...
1 - написать сочинение 1.вступление История создании повести 2. Основная частьмощная...
1 - Чему я научилась у родителей...
2
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.