1.Вводится натуральное число. Найти сумму четных цифр, входящих в его состав.2.
1.Вводится естественное число. Отыскать сумму четных цифр, входящих в его состав.
2. Дан текст. Найти процентное отношение строчных и прописных букв к общему числу знаков в нём.
ПРОГРАММА В ПАСКАЛЬ
Объяснение:
1.
n - исходное число,
sum - сумма четных чисел.
var
n: longint;
sum: integer;
begin
readln(n);
sum := 0;
while n gt; 0 do begin
if n mod 10 mod 2 = 0 then
sum := sum + n mod 10;
n := n div 10;
end;
writeln(sum);
end.
2.
str - строка;
len - количество символов в строке;
let_s, let_b - количество строчных (малюсеньких) и строчных (великих) букв.
var
str: string;
i, len, let_b, let_s: byte;
begin
readln(str);
len := length(str);
let_b := 0;
let_s := 0;
for i:=1 to len do
if (str[i] gt;= 'a') and (str[i] lt;= 'z') then
let_s := let_s + 1
else
if (str[i] gt;= 'A') and (str[i] lt;= 'Z') then
let_b := let_b + 1;
writeln((let_s/len)*100:5:2);
writeln((let_b/len)*100:5:2);
writeln;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.