Составить программу на паскале которая находит большее из двух чисел
5-9 класс
|
program jkfj;
var
a,b:integer;
begin
writeln ('Введите 1-ое число');
read (a);
writeln ('Введите 2-ое число');
read (b);
if a<b then write ('Большее b')
else write ('Большее a');
if a=b then write ('a и b равны')
end.
Сакура, могут быть ошибки в знаках, но в целом вроде хорошо!
Другие вопросы из категории
Составить программу вычисляющую периметр ромба, если известны его диагонали.(Pascal)
в общем дан массив а :var a,b,c,d:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
{readln (a[i])};
a[i]:=random(100);
end;
for i:=1 to 10 do begin
write (a[i]:4);
end;
и мне надо заполнить массив d элементами массива а НО В ОБРАТНОМ ПОРЯДКЕ как это сделать!!!!!!
значениями и сумму элементов массива с нечётными значениями
Читайте также
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
и составляют b руб(в месяц).Рост цен ежемесячно увеличивает расходы на 3%,составьте программу расчета необходимой суммы денег,которую нужно единовременно попросить у родителей,чтобы можно было прожить 10 месяцев,используя эти деньги.
Агент 007 узнал, что в секретном сейфе трёхзначный код, в котором все три цифры разные.При этом средняя цифра равна разности крайних цифр. Составить программу, которая напечатает для него все такие числа.
Дано:числа А и Б
Найти: С-большее из А и Б