Лабораторный практикум по программированию на языке Pascal. Суркова Е.В. - 56 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

55
if not (n in [1..10]) then
begin
writeln;
writeln (’Ошибка ввода!’);
writeln;
end;
until (n in [1..10]);
for i:=1 to n do
begin
write ('введите ',i,'-е слово ');
readln(s[i]); {ввод i-го слова}
tmp:=0; {обнуление суммы цифр i-го слова}
for j:=length(s[i]) downto 1 do
if UpCase(s[i,j]) in alf then {проверка допустимости j-
го символа i-го слова}
begin
if s[i,j] in ['0'..'9'] then {если j-й символ i-го
слова - цифра}
begin
val(s[i,j],k,cod); {преобразование символа в число}
tmp:=tmp+k; {накапливается сумма цифр i-
го слова}
end
end
else
begin
writeln('Встретился недопустимый символ!');
writeln;
tmp:=0;
dec(i); {Уменьшение номера слова}
break; {Досрочный выход из цикла по j}
end;
sum:=sum+tmp; {накапливается сумма цифр всех слов}
end;
writeln('Сумма цифр = ',sum);
readln;
end.
Варианты заданий
1. Дан массив из n слов произвольной длины (длина слова не превышает 80
символов). Символами могут быть только заглавные латинские буквы.
Найти и вывести все гласные буквы (без повторений), которые встретились
в двух самых длинных словах.

Страницы