Напишите програму поиска максимального из двух чисел

Знания

Информатика

1 ответ:

DmitriyVseznajka [7]4 года назад

0 0

Program ufhg;
uses crt;
var a,b,c,d, m: integer;
begin
readln(a,b,c,d);
m:=a;
if(b>m) then m:=b;
if(c>m) then m:=c;
if(d>m) then m:=d;
writeln(m);
end.

Читайте также

Как это решать ? помогите!

Бичурина

Ответ:

Объяснение:

Там условие: если строка1 равна строке 2 то к присваиваем 1 иначе 2

Ну а строки равные, так что к будет 1

0 0

4 года назад

Две пары фраз противоположных по смыслу

vika0606

Добрый злой
хороший плохой<u><em /></u>

0 0

4 года назад

Вам дан прямоугольник со сторонами 5 и 9. Он разделен на квадратные ячейки со стороной 1. Ячейка в левом нижнем углу имеет коорд

Таша57

Каждая следущая ячейка есть сумма нижней и левой ячейки. Начальная ячейка имеет значение 1

Ответ 380

0 0

4 года назад

Задание: написать программу, которая выведет на экран таблицу умножения (через оператор while)(всю), типа: 2*2=4;2*3=6...8*9=72;

alana9997

Var
    n, i: integer;

begin
    n := 0;
    while (n <= 1) or (n > 10) do
    begin
        write('Введите n в диапазоне от 2 до 10 = ');
        readln(n);
    end;

    for i := 1 to 9 do
        writeln(n, ' * ', i, ' = ', n * i);
end.

без проверки

var
    n, i: integer;

begin
    write('Введите n в диапазоне от 2 до 10 = ');
    readln(n);

    for i := 1 to 9 do
        writeln(n, ' * ', i, ' = ', n * i);
end.

0 0

1 год назад

Помогите выполнить на PascalABC(паскале)

girl1969 [14]

1)
Var
x,y:real;
begin
read(x);
y:=(3+exp(x))/cos(x)-1/abs(sqr(x)-0.2*x);
writeln(y);
end.
2)
Var
x,y:real;
begin
read(x);
if x<=3 then y:=sqr(x)-3*x+9 else y:=1/(power(x,3)+6);
writeln(y);
end.
3)
Var
p,i:integer;
begin
p:=1;
for i:=9 to 16 do //рассматривается вариант с до 17, а не по 17
if odd(i) then p:=p*i;
writeln(p);
end.

0 0

4 года назад