#include <iostream> // подключение заголовочного файла для возможности cin, cout
using namespace std; // чтобы каждый раз не писать std перед cin, cout
int main() // главная процедура
{
setlocale(LC_ALL, "Russian"); // для вывода текста русского языка
int k, l; // объявление целых переменных
cout << "\nВведите k: "; // вывод сообщения
cin >> k; // ввод с клавиатуры
cout << "\nВведите l: "; // вывод сообщения
cin >> l; // ввод с клавиатуры
if (k != l) { // если k не равно l
if (k > l) // находим большее число и меняем меньшее на большее
l = k;
else
k = l;
}
else { // иначе k равно l
k = 0; // присваиваем нулевые значения
l = 0;
}
cout << "\n\nk = " << k; // вывод новых значений
cout << "\nl = " << l << "\n";
}
Объяснение: в комментариях к программе
procedure Ввод(a: array of string);
begin
for var i := 0 to a.High do
a[i] := ReadlnString;
end;
procedure Вывод(a: array of string);
begin
a.PrintLines
end;
function Сумма(a: array of string): integer;
begin
Result := a.Select(t -> t.ToInteger).Sum;
end;
begin
var n := ReadlnInteger('Укажите общее количество строк:');
var a := new string[n];
Ввод(a);
Вывод(a);
Println('Сумма равна', Сумма(a))
end.
Объяснение:
var
i, n:integer;
x:real;
sum, count:real;
begin
writeln('Input x = ');
readln(x);
writeln('Input n = ');
readln(n);
count:=x;
sum:=0;
for i:=1 to n do begin
count:=count + (count * 0.1);
sum:=sum + count;
end;
writeln('Vsego sela = ', sum:3:3);
writeln('Vsego dali = ', count:3:3);
readln;
end.