Помогите пожалуйста! Срочно надо написать программу в паскале. Задание: Введите ...

July 2022 1 4 Report

Помогите пожалуйста! Срочно надо написать программу в паскале. Задание: Введите три трёхзначных числа. Найти разность между наибольшим м наименьшим. Заранее спасибо!

Answers & Comments

HRAshton Begin
var a, b, c: single;
readln(a, b, c);
writeln(max(a, max(b, c)) - min(a, min(b, c)));
end.

Позязя, расширеннее...
begin
var a, b, c, d, e: single;
readln(a, b, c);
if (a < b) then
d := a
else
d := b;
if (c < d) then
d := c;
if (a > b) then
e := a
else
e := b;
if (c > e) then
e := c;
writeln(e - d);
end.

0 votes Thanks 1

Katy41340 а можно более пазвёрнуто

Katy41340 развёрнуто

Katy41340 Спасибо огромное!!!!!!!!!

Answers & Comments

spishite slova vydelyaya v nih korni i obyasnyaya ih napisanie nervnmernyj vyrv

tablica na temu politicheskie partii k nachalu 20 veka

pomogite pozhalujsta upr108 srochno vse vo vlozhenii nizhe

рекомендуемые вопросы

Helpful Links

Helpful Social