Вопрос по информатике:
Ввести с клавиатуры строку символов.Вывести отдельной строкой строчные латинские буквы и подсчитать их количество.
Пожаловаться
- 06.02.2017 12:14
- Информатика
- remove_red_eye 10549
- thumb_up 30
Ответы и объяснения 1
Program z1;
var a: string; b, c, i: integer;
begin
readln (a); writeln ();
c:= 0;
b:= lenght (a);
for i:=1 to b do
if (a[i] >= 'a') and (a[i] <= 'z') then begin
write (a[i]); c := c + 1; end;
writeln (c);
end.
Надеюсь, этот вариант сработает.
var a: string; b, c, i: integer;
begin
readln (a); writeln ();
c:= 0;
b:= lenght (a);
for i:=1 to b do
if (a[i] >= 'a') and (a[i] <= 'z') then begin
write (a[i]); c := c + 1; end;
writeln (c);
end.
Надеюсь, этот вариант сработает.
Пожаловаться
- 07.02.2017 15:53
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы