tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу, которая
Написать программу, которая во введённой с клавиатуры строке заменяет все маленькие гласные латинские буквы на большие. pascal можно без массивов.
LolKek006
3 24.09.2019 11:40
0
Ответы
znaniacom945
08.10.2020 15:02
Вот, вроде так должно получится)
ПОКАЗАТЬ ОТВЕТЫ
Ученик12090
08.10.2020 15:02
//PascalABC.NET
var
s: string;
i: byte;
vowels: string = 'aeiouy';
begin
write('Строка = ');
readln(s);
for i := 1 to length(s) do
if pos(s[i], vowels) <> 0 then s[i] := s[i].ToUpper;
writeln('После замены = ', s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
MrTroLoLo10
28.05.2019 18:30
Найти сумму всех целых чисел больше -50, но меньше 200, которые кратны 5(делятся на 5). напишите программу, ....
Смешарик111
28.05.2019 18:30
Написать программу на языке паскаль: вычислить сумму 1/2 + 1/4 + 1/6 + 1/2n...
Owslalien
28.05.2019 18:30
Задан двухмерный массив. определить, сколько раз встречается число 1 среди элементов третьей строки матрицы....
PAMAGITEPLS228
28.05.2019 18:30
Задан одномерный массив из n элементов. найти сумму всех неотрицательных элементов массива....
1POMOGUTE1
28.05.2019 18:30
Windows- -многопользовательская, , 32-разрядная ос -однопользовательская, , 16-разрядная ос -многопользовательская, , 32-разрядная ос -однопользовательская, , 32-разрядная...
skey16
28.05.2019 18:30
От каких характеристик компьютера зависит его производительность?...
vladskills09
28.05.2019 18:30
Задаётся проходной в институт и оценки студента за , и информатику.написать программу,которая определяла бы соответствующее сообщение. решить по информатике !...
111111DA
26.11.2020 10:23
1) Какие файлы находятся в корневом каталоге? а) C:\SERVER\Видео\2007\Зя.aviб) A:\autoexec.batв) \\work3\Игры\Hover\hover.exeг) D:\Windows\Temp\Справка.txtд) E:\Реферат.doc2)...
3toH
26.11.2020 10:22
Написать программу на Python, которая будет выполнять следующий набор действий: - получать от пользователя одно целое число, числом является 2 в степени n (например,...
ksu010157sha
26.11.2020 10:22
1 вопрос всего. Информатика...
Популярные вопросы
Дано трикутник авс де А(2:4:5): В(-3:2:2): (-1:0:3) довести що...
2
Вкажіть якою речовиною ми дихаємо? О кисень азот повітря...
2
Тест по английскому 1. Yesterday at 2 am Tim ___ for the exam (prepare)...
1
Тест по русскому 1.Найдите словосочетание А) Белая берëзаБ) ночь...
3
быстрее Відповідь запишіть в амперах...
1
(x-3)(x-7)-2x(3x-5) упростить...
2
we talked about travelling by bus, but 2 we had a different idea,...
3
зделайте тжб по жаратылыстану...
2
Описание одного случая бескорыстной друг друг...
2
Определить массу соли и воды в 50 грамм 3-х процентного раствора...
2
var
s: string;
i: byte;
vowels: string = 'aeiouy';
begin
write('Строка = ');
readln(s);
for i := 1 to length(s) do
if pos(s[i], vowels) <> 0 then s[i] := s[i].ToUpper;
writeln('После замены = ', s);
end.