определение большого числа из двух не равных чисел введеный с клавеатуры
5-9 класс
|
var a,b,c:real;
begin
writeln('Введи первое число');
readln(a);
writeln('Введи второе число');
readln(b);
if (a<>b) then
if a>b then
writeln('Первое больше второго')
else writeln('Второе больше первого')
else
writeln('Числа равны');
end.
Другие вопросы из категории
помогите пожалуйста, срочно
информационное сообщение уменьшилось на 160 байт. Какова длина сообщения в символах?
как?) 2.какого эффекта анимации обьекта не существует выход вход переход путь перемещение
Читайте также
Что не так в коде? Надо найти НОК трёх чисел через алгоритм Евклида.
Тест: числа 4,6,18, ответ 36.
Код:
Program No4;
var a,b,c:integer;
{----------АЛГОРИТМ ЕВКЛИДА----------}
function evc (a,b:integer):integer;
var m,m1,m2,z:integer;
begin
z:=0;
//определение большего числа
if a=b then evc:=a else
begin
if a>b then
begin
///m1 - большее число из двух, m2 - меньшее.
m1:=a;
m2:=b;
end
else
begin
m1:=b;
m2:=a;
end;
//определение большего числа - готово
repeat
m:=m1 mod m2; ///Большее число делим на меньшее;
if m=0 then z:=m2 ///Если делится - то НОД есть меньшее число;
else begin ///Иначе меняем большее на меньшее,а меньшее - на остаток от деления (по Евклиду).
m1:=m2;
m2:=m;
end
until z<>0;///Повторяем, пока НОД не появится.
evc:=z;
end;
end;
{---------/АЛГОРИТМ ЕВКЛИДА----------}
{----------АЛГОРИТМ НОК----------}
function znam (a, b, c:integer):integer;
var Nabc,Nab:integer;
begin
Nab:=evc (a,b); ///НОД (а.b) - это результат алгоритма Евклида для чисел А и B:
Nabc:=evc (c, Nab); ///НОД (С,Nab) - это результат алгоритма Евклида для чисел С и Nab:
znam:=a*b*c div Nabc; ///НОК = ПРОИЗВ. ЧИСЕЛ / НОД
end;
{----------АЛГОРИТМ НОК----------}
begin
readln (a,b,c);
writeln (znam (a,b,c));
end.
Заранее спасибо.
этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
2)Даны вещественные числа х и у, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
Пользователь вводит пять чисел. Программа выводит ответ: "Максимальное число ... ".
Написать программу в "КуМиРе"
1)Дано целое число ,если оно не четное ,то увеличить его на 3,иначе увеличить его в 5 раз.
2)Даны 2 числа вещественного типа не равные друг другу.Меньшее из них заменить половиной их суммы ,а большее - их удвоенным произведением.
3)Даны 2 числа k и m.Если первое число отрицательно ,то его значение заменить его модулем;иначе второе число заменить единицей .Результат (оба числа) вывести на экран.
Множесто В - простые числа из этого же диапазона.
Определить дополнение множества В до множества А.
Задачка на Паскале.