Дана строка. Среди символов строки встречаются цифры. Написать программу, вычисляющую сумму всех цифр строки.
10-11 класс
|
Pascal
---
var s:string;
i,c,sum:integer;
begin
readln(s);
sum:= 0;
for i:=1 to Length(s) do
if (s[i]>='0')and(s[i]<='9') then
begin
c:=ord(s[i])-48;
sum:=sum+c;
end;
writeln(sum);
end.
почему практически никто не пишет, в какой среде нужна программа?
Другие вопросы из категории
>Зеленый цвет на компьютере с объемом страницы видеопамяти 125 Кбайт кодируется кодом 0010. Какова может быть разрешающая способность монитора?
Ребят если можно с полным решением.))))
первых двух чисел четна, то выведите эту сумму. Если сумма третьего и четвертого чисел четна и отрицательна, то выведите все четыре числа без изменения. Если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих четырех чисел. Иначе, выведите суммы двух первых и двух последних чисел.
выполнят задание втроём
program lab;
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
x:integer;
n,m,i,j,p,q,k:byte;
begin
writeln('Поиск неповторяющихся элементов двухмерного массива целых чисел');writeln;
randomize;
repeat
write('Введите количество строк...');
read(m);
until m in [1..nmax];
repeat
write('Введите количество столбцов...');
read(n);
write('Введите элементы двухмерного массива:');writeln;
until n in [1..nmax];
for i:=1 to m do
begin
for j:=1 to n do
begin
write(' [',i,',',j,']...');
readln(a[i,j]);
end;
end;
writeln('Исходная матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
write(a[i,j]:4);
end;
writeln;
end;
writeln;
writeln('Неповторяющиеся элементы массива:');writeln;
for i:=1 to m do
for j:=1 to n do
begin
x:=a[i,j];
k:=0;
for p:=1 to m do
for q:=1 to n do
if a[p,q]=x then k:=k+1;
if k=1 then write(x,' ');
end;
end.
Читайте также
Дано натуральное число n. Написать программу вычисляющую сумму
2. написать программу, вычисляющую значение функции (y=f(x))
y=x-2, если x>0,
y=0, если x=0,
y=x*x, если x<0
2)Написать программу определяющую сумму всех нечетных чисел от 1 до 99
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива