Пусть задан текст,за которым следует точка. Поменяйте все строчные латинские буквы,которые встречаются в тексте,на прописные

@seabeachez · Регистрация: 13.12.2012

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

Пусть задан текст,за которым следует точка.
Поменяйте все строчные латинские буквы,которые встречаются в тексте,на прописные.

нужно написать без функции upcase, на самом обычном начальном паскале

@Puporev · 19.09.2013, 14:18

Pascal

var s:string;
    i:integer;
begin
writeln('Введите строку, содержащую строчные латинские буквы');
read(s);
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then s[i]:=chr(ord(s[i])-32);
write(s)
end.

@seabeachez 0 / 0 / 0 Регистрация: 13.12.2012 Сообщений: 3
		1
	Пусть задан текст,за которым следует точка. Поменяйте все строчные латинские буквы,которые встречаются в тексте,на прописные 19.09.2013, 12:53. Показов 2302. Ответов 1 Метки нет (Все метки) Пусть задан текст,за которым следует точка. Поменяйте все строчные латинские буквы,которые встречаются в тексте,на прописные. нужно написать без функции upcase, на самом обычном начальном паскале 0

	19.09.2013, 14:18

Пусть задан текст,за которым следует точка. Поменяйте все строчные латинские буквы,которые встречаются в тексте,на прописные

Решение