Дана строка s, содержащая менее чем 100 символов. Заменить в данной последовательности все строчные латинские буквы одноименными заглавными

@narze · Регистрация: 07.06.2013

Студворк — интернет-сервис помощи студентам

Дана строка s, содержащая менее чем 100 символов. Заменить в данной последовательности все строчные латинские буквы одноименными заглавными. Использовать стандартные процедуры и функции в действиях над строками.

Показал

Pascal

var
s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s)do
s[i]:=Upcase(s[i]);
writeln(s);
end.

Мне сказали без upcase через АСКИ таблицу сделать

помогите пожалуйста

@CodeR · 08.06.2013, 10:21

Pascal

var
 s:string;
 i:integer;
 begin
 readln(s);
 for i:=1 to length(s)do
  if s[i] in ['a'..'z'] then s[i]:=chr(ord(s[i])-32);
 writeln(s);
 end.

Опции темы