Это правильно ?это информатика 9 класс.задача. среди 4 чисел найти максимум и минимум:program zadacha;vara,b,c,d,max,min:real;beginwriteln('vvedite kofficient a,b,c,d');If a>b then max:=a else min:=b;If c>d then max:=c else min:=d;If a>c then max:=a else min:=c;end.

более месяца назад

Просмотров : 25 Ответов : 1

Лучший ответ:

USES crt;
var a,b,c,d:real;
BEGIN
clrscr;
readln(a,b,c,d);
if (a > b) and (b > c) then
writeln('Max = ',a,', Min = ',c);
if (b > a) and (a > c) then
writeln('Max = ',b,', Min = ',c);

if (a > c) and (c > b) then
writeln('Max = ',a,' Min = ',b);
if (c > a) and (a > b) then
writeln('Max = ',c,', Min = ',b);
if (b > c) and (c > a) then
writeln('Max = ',b,', Min = ',a);
if (b > d) and (d > b) then
writeln('Max = ',b,', Min = ',b);
if (d > b) and (d > b) then
writeln('Max = ',d,', Min = ',a);
readln;
END.
Задача легкая, но блин, пришлось подумать...

более месяца назад

Ваш ответ:

Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.