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

Знания

Информатика

1 ответ:

Hjkkka4 года назад

0 0

vara,b,c:integer; beginread(a,b,c); if (a > b) and (a > c) then write(a) elseif (b > a) and (b > c) then write(b) else write(c);end.

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

Как раскодировать 1000

NataGeo [12.3K]

1000= 8 в десятичной системе счисления

0 0

4 года назад

Установите правильную последовательность этапов обработки данных эвм

Александр Виктор

ЭВМ- это электронно - вычислительная машина.

0 0

4 года назад

Решите блок схему самолётиком

Елена Кошелева

20 символов блэт аааааааааааа

0 0

3 года назад

Ошибка в pascal (Встречен конец файла, а ожидался оператор) Помогите, что нужно дописать чтобы ошибка исчезла? Функция: function

elfed

Нужно что-то присвоить функции для случая, когда (2*a+b-c)<0
Например, так:
function sqrt1 (a, b, c: real): real;
begin
if (2 * a + b - c) < 0 then
begin writeln (' complex number '); sqrt1:=-1; end
else sqrt1:= sqrt(2 * a + b - c);
end;

0 0

4 года назад

(Pascal ABC Net)Найти сумму максимального и минимального из 12 введенных чисел. Вывести сами значения и их индексы.

Cecil [39]

Раз надо найти индексы, значит это массив
//Pascal
const n = 12;
var a:array[1..n] of real;
min,max:real;
imin,imax,i:integer;
begin
max:=-999999;
min:=999999;
for i:=1 to n do begin
 readln(a[i]);
 if a[i]<min then begin
 min:=a[i]; imin:=i;
 if a[i]>max then begin
 max:=a[i]; imax:=i;
end;

writeln ('Максимальный ',max,'индекс',imax);
writeln ('Минимальный',min,'индекс',imin);
writeln ('Сумма', max+min);
end.

0 0

4 года назад