Писать только на алгоратмическом языке: 1) Даны натуральные числа A и B. Напишите алгоритм, чтобы найти наибольшее из этих двух чисел.
2) Даны три числа: A, B и C. Найдите большее из этих трех чисел.
3) Дано 4-значное число A. Напишите алгоритм, который представляет собой сумму этих чисел.
4) Дано трехзначное число A. Напишите алгоритм, чтобы проверить, делится ли это число на заданные числа B и C.
5) Учитывая натуральное число N. Напишите алгоритм, чтобы найти сумму последовательности чисел от 1 до N.
6) Учитывая натуральные числа N и A. Напишите алгоритм, который печатает числа, которые делятся на заданное число A, из последовательности чисел от 1 до N.
7) Напишите алгоритм вывода чисел, равных одной сотой части трехзначного числа.
8) Учитывая натуральное число N. Напишите алгоритм вывода чисел в порядке убывания от 1 до N.
using namespace std;
int main()
{
double a, b, c;
cout << "A = ";
cin >> a;
cout << "B = ";
cin >> b;
cout << "C = ";
cin >> c;
if (a <= b)
if (b<c)
cout << "rez = " << a*b << endl;
else cout << "rez = " << a*c << endl;
else
if (b >= c)
cout << "rez = " << c*b << endl;
else if (c>a) cout << "rez = " << a*b << endl;
else cout << "rez = " << c*b << endl;
cout << endl;
system("pause");
return 0;
}
n=10;
var
a:array[1..n] of integer;
i,_start,_end, startInd, endInd:integer;
begin
Randomize;
Write('Исходный массив: ');
_start:=-1; _end:=-1;
startInd:=-1; endInd:=-1;
for i:=1 to n do
begin
a[i]:=random (0,100);
Write(a[i],' ');
end;
Writeln;
for i:=2 to n do
begin
if a[i]>a[i-1] then
if _start > -1 then _end := i else
begin
_start := i-1;
_end := i;
end
else
begin
if (_start > -1) and ((endInd - startInd) < (_end - _start)) then
begin
startInd := _start;
endInd := _end;
end;
_start := -1;
_end := -1;
end;
end;
if startInd > -1 then
begin
Writeln('Длина диапазона: ', (endInd-startInd+1));
Write('Значения из диапазона: ');
for i:=startInd to endInd do Write(a[i],' ');
end;
end.