составить блок-схему и программу увеличения большего из двух чисел на 1
10-11 класс
|
var
a,b : integer;
begin
writeln('введите 1 число ');
readln(a);
writeln('введите 2 число');
readln(b);
if a>b then
begin
y:=a+1;
writeln('1 число больше',y)
else
begin
y:=b+1;
writeln(' 2 число больше ',y);
end;
end;
end.
Другие вопросы из категории
минимальный среди элементов тех строк, которые упорядочены либо по
возрастанию, либо по убыванию. Если упорядоченные строки в матрице отсутствуют,
то вывести 0.
Читайте также
writeln('введите число y');readln(y); if x>y then max:=x else max:=y; writeln('большее из двух =',max); end.
2. Составьте программу, определяющую, является ли данное число делителем числа 3.
3*. Составьте программу, заменяющую из двух данных чисел меньшее число суммой, а большее – произведением этих чисел.
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
Я не могу сочинить этот "алгоритм", помогите ;)
Блок-схемы строить не надо, просто описать, что надо делать.