Регистрация
УЕД
01.11.2020 03:34
Информатика
Есть ответ 👍

Найдите разность максимального и минимального из четырёх чисел

187
419
Посмотреть ответы 2

Ответы на вопрос:

vanschool
vanschool
4,5(95 оценок)
Pascalabc.net 3.3.5, сборка 1636 от 10.03.2018 внимание! если программа не работает, обновите версию! begin   var a: =readarrreal('введите 4 числа: ',4);   writeln('разность наибольшего и наименьшего: ',a.max-a.min) end. пример введите 4 числа: 5.18 10 -2 0 разность наибольшего и наименьшего: 12
1pashnett
1pashnett
4,4(62 оценок)
Var a,s,p: integer; begin p: =1; read(a); if(a=0) then p: =0; while(a< > 0)do begin   s+=a;   p*=a;   read(a);   end; writeln(s, ' ', p); end.

Популярно: Информатика