Вот так как то, если неправильно, напишите в комментах

program nomer;
var a,b,c:integer;
begin
writeln('Введите а,b,c');
readln(a,b,c);
if a>b then
begin
if b>c then writeln (c,b,a)
    else
      if a>c then writeln (b,c,a)
      else writeln (b,a,c);
end
else
begin
if a>c then writeln(c,a,b)
else
    if b>c then writeln (a,c,b)
    else write(a,b,c)
end;
end.

0 0

4 года назад

Как можно на фото поставить надписи на телефоне,в фото галереи

sewada

Эту надпись написали через в вк
на копмпе заходишь, открываешь фото, жми изменить фото, а дальше изменяй

0 0

4 года назад

Дан целочисленный массив из 12 элементов случайных целых чисел ,принадлежащих интервалу [10;45[.Необходимо найти произведение эл

Ольга Гринцова

Ответ:

Program Massiv; //Заголовок программы

const n=12;

var i,m,p:integer; s: array[1..n] of integer;

begin

p:=1;

for i :=1 to n do

s[i]:= random (10,44);

for i :=1 to n do begin

if (s[i] mod 5) = 0 then p:= p * s[i];

end;

writeln(s);

if p = 1 then

write('Нет элементов кратных 5')

else

write('p = ', p);

end.

Объяснение:

программа описана в файле ворд

0 0

4 года назад