Все категории

4 года назад

Даны 4 числа, найти наименьшее из них..(язык-Паскаль)

Знания

Информатика

1 ответ:

Амита4 года назад

0 0

Var a,b,c,d:real;
begin
read (a,b,c,d);
a:=min(a,b);
b:=min(c,d);
c:=min(a,b);
writeln (c);
end.

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

Вычислить значение функции. Осуществить вывод значений вводимых исходных данных и результат вычисления значения функции, сопрово

Недомохозяйка [690]

program TabulW;

var

a, b, c, x, dx, w: real;

begin

a := 2.8;

b := -0.3;

c := 4.0;

x := 1.0;

dx := 0.05;

Writeln(' a b c x w');

while x - 2 < 0.0001 do

begin

if x < 1.2 then

w := a * x * x + b * x + c

else if x > 1.2 then

w := (a + b * x) / sqrt(x * x + 1)

else

w := a / x + sqrt(x * x + 1);

Writeln(a:6:3, b:8:3, c:8:3, x:8:3, w:8:3);

x += dx

end;

Readln;

end.

0 0

2 года назад

. В приведённом ниже списке найдите соответствие между управляющим и управляемым объектами и заполните таблицу: оркестр, лошадь,

p-a

управляющий --> управляемый

Наездник --> Лошадь,

Тренер --> Спортсмен,

Режиссёр --> Актёр,

Дирижёр --> Оркестр,

Водитель --> Автобус.

0 0

4 года назад

В одномерном массиве подсчитать сумму двоек

RusEP

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),0,9); a.Println;
Writeln('Сумма двоек равна ',a.Where(t->t=2).Sum)
end.

Пример
n= 15
2 6 6 2 8 5 3 1 8 0 0 2 8 3 6
Сумма двоек равна 6

0 0

4 года назад

Нужно сделать программу на паскале+ блок схема или алгоритм Составить программу информационное сообщение пользователю

sportsmen33x [364]

Эмммм.....

prorgam psck;

begin

writeln('Информационное сообщение');

end.

0 0

1 год назад

В кодировке Unicode на каждый символ отводиться 2 байта.Определить информационный объем слова из 24 символов в этой кодировке(в

LITTLEDEADBRAIN [1]

24 символа = 24 × 2 = 48 байтов
1 байт = 8 битов
48 × 8 = 384 бита

0 0

4 года назад