Готово
function max(a1, a2:integer):integer;
begin
if a1>a2 then max:=a1 else max:=a2;
end;

var
a, b, c, d: integer;
begin
readln(a, b, c, d);
write(max(max(a, b), max(c, d)));
<span>end.

Если есть какие-то вопросы или ещё нужна помощь, в ЛС.
</span>

0 0

3 года назад

Помогите! Сделать в паскале! Автомобиль в первый день проехал 24% намеченного пути, во второй день – 46% пути, а в третий – оста

bkmafn

Хорошая задача . я подумаю и скажу тебе ответ .

0 0

3 года назад

Из перечисленных внешних устройств, подключенных к компьютеру, найдите устройство, для которого не нужна специальная программа-д

Dzekson

4) Мышь!
При подключение она просто начинает работать

0 0

1 год назад

Срочно.50 баллов8класс, Письменно!

13Anastasya13 [225]

1) Недостающие фрагменты:
var a, b, p
Readln(a);
Readln(b);

2) Блок-схема:
    (начало)
|
    / a, b /
|
[ y = 3*a^3 - 2*b^2 + 5*a*b ]
|
  / y /
|
(конец)

Программа:
П1 <-> П0 3 <-> x^y 3 * ИП1 x^2 2 * - ИП0 ИП1 5 * * + С/П

0 0

4 года назад