Вгосударстве астрософт номера автомобилей состоят из четырех маленьких букв латинского алфавита. например, номер автомобиля президента страны «abcd», а мой номер — «qwer». для обработки в информационном центре информации связанной с номерами автомобилей было предложено использовать коды не маленьких, а больших символов латинского алфавита, т. к. они имеют меньший числовой код, а следовательно занимают меньшее количество памяти.
специалистам информационного центра написать программу для автоматического перевода маленьких символов номеров автомобилей в большие.

входные данные:

строка состоящая из четырех маленьких символов латинского алфавита.

выходные данные:

строка из четырех больших символов латинского алфавита в соответствии с заданными входными данными.
пример 1.

на входе:
abcd

на выходе:
abcd

пример 2.

на входе:
qwer

на выходе:
qwer

решение на языке pascal

program pr;

var n,a,b,c, sum: integer;

begin

readln (n);

a: =n div 100;

b: =n mod 100 div 10

c: =n mod 10

sum: =a+b+c;

if   sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');

readln;

end.

ввод x = 1, y = 3

x = 3 - 1= 2

y = 2 * 2 = 4

x = 2 * 4 + 2 = 10

y = 4 + 10/2 = 9

вывод x = 10, у = 9

ответ. в результате работы программы получим: х = 10, у = 9.

var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.

моя улица в солнечной системе. это земля. она находится третьей от солнца.