Нужно написать программу на с++ условие: дана строка, состоящая из заглавных и маленьких латинских букв. заменить все заглавные буквы на соответствующие маленькие и вывести строку.
//pascal //для натуральных чисел var a, s, p: integer; begin write('введите число = '); readln(a); s : = 0; p : = 1; while (a< > 0) do begin p : = p * (a mod 10); s : = s + (a mod 10); a : = a div 10; end; writeln( 'сумма цифр числа = ', s); writeln( 'произведение цифр числа = ', p); end. //если число отрицательное var s, p, a, b, c: integer; f: boolean; begin write('введите число = '); readln(a); if a < 0 then f : = true; a : = abs(a); b : = a mod 10; a : = a div 10; c : = a mod 10; a : = a div 10; if f = true then begin p : = (-a) * b * c; s : = -a + b + c; end else begin s : = a + b + c; p : = a * b * c; end; writeln('сумма цифр числа = ', s); writeln('произведение цифр числа = ', p); end.
OlgaVasilevna
10.04.2021
Ввод матрицы в ручнуюconst n = 5; m = 5; {n-строка, m-столбец} var a: array [1..n, 1..m] of real; i, j: integer; begin for i : = 1 to n do for j : = 1 to m do begin write('a[', i, ', ', j, '] = '); readln(a[i,j]) end; writeln('исходный массив: '); for i : = 1 to n do begin for j : = 1 to m do write(a[i,j]: 10: 2); writeln end; writeln('главная диагональ массива а: '); for i : =1 to n do write(a[i, i]: 10: 2); writeln; readln; end.