3 года назад

Составьте алгоритм с помощью которого можно определить большее из трех чисел a b c

1 ответ:

0 0

Var
a,b,c,max:real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
max:=a;
if (b>a) and (b>c) then max:=b;
if (c>b) and (c>a) then max:=c;
write('Максимальное число: ',max:5:2);
readln;end.

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

Укажите примеры программ, проанализировав ситуацию: 1) Ученые научно-исследовательского института расшифровывают записи переданн

евгения 1 111

1) программа дешифратор.
2) прога для 3D моделей. (3D Studio Max)

0 0

4 года назад

Перевести на язык программирования PascalABC данные математические выражения.

Дейя [31]

<h2>Задание 1</h2>

var
firstNumber, secondNumber: integer;
begin
Write('Введите два числа: ');
Read(firstNumber);
Read(secondNumber);
Writeln('Среднее значение чисел ', firstNumber, ' и ', secondNumber, ' = ', (firstNumber + secondNumber) / 2);
end.

<h2>Задание 2</h2>

var
x, a, b, y: real; { значение переменных }
begin
Writeln('a) y = 2 * x^2 - 5 * x + 7');
Write('Введите x: ');
Read(x);
Writeln('y = ', 2 * Power(x, 2.0) - 5 * x + 7);
Writeln('б) c = (a + b)^2 - 2 * a^2 * b');
Write('Введите a, b: ');
Read(a, b);
Writeln('c = ', Power(a + b, 2.0) - 2 * Power(a, 2.0) * b);
Writeln('в) z = | x - y^2 | + x * sqrt(x)');
Write('Введите x, y: ');
Read(x, y);
Writeln('z = ', Abs(x - Power(y, 2.0)) + x * Sqrt(x));
end.

0 0

4 года назад

Помогите пожалуйста,завтра итоговая аттестация,даю 20 б Вариант № 2 1-Сообщение записанное буквами из 16-символьного алфавита,

Юрий77777

1) 4*90=360
2) 4416:8=552
3) 14кб / 16384 = 14 * 8 * 1024 / 16384 бит = 7 бит

0 0

4 года назад

1) сообщение занимает 45 страниц по 45 строк,в каждой строке записано по 55 символов.Сколько символов в сообщении? 2)сообщение с

johnie [1]

1) 45х45=2025, 2025х55=111375 Ответ: в сообщении 111375 символов.
2) 150х1=150 Ответ: 150 байт
3) 60х27=1620 , 1620:810=0.5 Ответ: 0.5 символов.

0 0

3 года назад

Помогите составить график и найти к нему подходящую формулу, по Microsoft Excel. И объясните как вы это сделали!Желательно подро

Павел67689

А как сюда фото отсылать??

0 0

4 года назад