Program summa_4isel; Uses crt; Var a,e,z,y,x:integer; Begin Writeln('Введите трехзначное число число'); Readln(a); x:=a div 100; y:=(a-x*100) div 10; z:=a-y*10-x*100; e:=x+y+z; writeln('Сумма чисел ',x,' ',y,' и ',z,' равна ',e,'.'); end.
При условии что кроме пробелов и точек других символов или цифр нету, т.к. в задании о них не сказано: #include <algorithm> #include <iostream> using namespace std;
int main() { string s; cout << "Enter string: "; getline(cin, s); for (auto i : s) { if (i == '.') { cout << count_if( s.begin(), s.end(), [](auto c) { return c != ' ' && c != '.'; } ) << endl; } } return 0; }
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,10,99); a.Println(3); Writeln(3*a.ColCount*'-'); var b:=a.Cols.Select(c->c.Max).ToArray; foreach var x in b do Write(x:3); Writeln end.
Uses crt;
Var a,e,z,y,x:integer;
Begin
Writeln('Введите трехзначное число число');
Readln(a);
x:=a div 100;
y:=(a-x*100) div 10;
z:=a-y*10-x*100;
e:=x+y+z;
writeln('Сумма чисел ',x,' ',y,' и ',z,' равна ',e,'.');
end.