Написать программу : из трех данных чисел ( a , d и с) найьи максимальное и умньшить его на 5

Знания

Информатика

1 ответ:

itvin4 года назад

0 0

Var a, b, c: integer;

function max(a, b : integer) : integer;
begin
if a>b then max:=a
else max:=b;
end;

begin
readln(a, b, c);
writeln(max(max(a, b),c)-5);
end.

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

Программу дала училка условия немного тупы помогите хотя бы с 1 задачей помогите пожалуйста написать 2 программы на языке паскал

Вера Куцева

Задача 1.
const
n=30;
var
a,b:array[1..n] of integer;
i,j,k:integer;
begin
{ самое сложное - создать такой массив,
 где положительные и отрицательные элементы будут случайно
 перемешаны и их будет по n/2.
 Если организовать ввод с клавиатуры, то это гораздо проще.
}
Randomize;
{ инициализация "флажком" - значением 1000 }
for i:=1 to n do a[i]:=1000;
{ сначала генерируем n/2 случайных отрицательных на случайных местах }
for i:=1 to (n div 2) do
begin
 k:=Random(50)-50; { случайное отрицательное значение }
 { а теперь ищем случайное свободное место }
 repeat
 j:=Random(30)+1
 until a[j]=1000;
 a[j]:=k
end;
{ теперь осталось сгенерировать n/2 случайных положительных чисел
 и разместить их на свободных местах }
for i:=1 to (n div 2) do
begin
 k:=Random(50)+1; { случайное положительное значение }
 { а теперь ищем свободное место }
 j:=0;
 repeat
 Inc(j)
 until a[j]=1000;
 a[j]:=k
end;
{ и только отсюда начинается собственно задание }
Writeln('Исходный массив');
for i:=1 to n do Write(a[i]:4);
Writeln;
{ j - количество обработанных отрицательных,
 k - количество положительных,
 а массив строим так, что отрицательные элементы на нечетных местах }
if a[1]<0 then begin b[1]:=a[1]; j:=1; k:=0 end
else begin b[2]:=a[1]; j:=0; k:=1 end;
for i:=2 to n do
 if a[i]<0 then
 begin Inc(j); b[2*j-1]:=a[i] end
 else begin Inc(k); b[2*k]:=a[i] end;
Writeln('Результирующий массив');
for i:=1 to n do Write(b[i]:4);
Writeln
end.

Тестовое решение:
Исходный массив
43 44 34 21 14 -26 32 35 -25 -8 42 -35 -37 12 45 -25 31 8 -16 -5 8 -25 -19 -15 -27 -16 12 26 -14 -41
Результирующий массив
-26 43 -25 44 -8 34 -35 21 -37 14 -25 32 -16 35 -5 42 -25 12 -19 45 -15 31 -27 8 -16 8 -14 12 -41 26

0 0

4 года назад

На шахматной доске в клетке (x1,y1) находится шахматный конь. Определите, бьёт ли конь поле (x2,y2). На вход программе даются че

e-mma [3.5K]

Вот через питон, но суть одна и та же:

0 0

4 года назад

Текст, содержащий 8192 знака (с пробелами), закодирован с помощью алфавита, содержащего 128 символов. Сколько килобайтов занимае

-nastia-

N=2i (2 в степени i) - формула Шеннона
N - мощность алфавита. Отсюда i=7
То есть один символ несёт информационный объём в 7 бит. А их аж 8192. Перемножаем 8192*7 и делим на 8 (количество битов в одном байте) = 7168 байта. Что составляет 7168/1024=7 Кб
Ответ: 7 Килобайт

0 0

4 года назад

Сколько единиц в двоичной записи шестнадцатиричного числа из 2АС1

Вячеслав8972

2AC1₁₆=10101011000001₂;
Ответ: 6 единиц.

0 0

4 года назад

Написать программу для "Pascal": Дана целочисленная матрица размерности (NxM). Поменять местами строки с max и min элементами.

dmit-riy-k [49]

Program n1;
const maxm = 50;
maxn = 50;
var a:array[1..maxm,1..maxn] of integer;
 min,max,i,j,n,m,x,maxi,mini:integer;
begin
write('Введите размеры матрицы (N*M): ');
readln(n,m);
writeln('Введите матрицу из ',n,' строк и ',m,' столбцов:');
min:=maxint; max:=-maxint-1;
for i:=1 to n do
for j:=1 to m do
 begin
read(a[i,j]);
if a[i,j]>max then begin max:=a[i,j]; maxi:=i; end;
if a[i,j]<min then begin min:=a[i,j]; mini:=i; end;
end;

for j:=1 to m do
begin
x:=a[maxi,j]; a[maxi,j]:=a[mini,j]; a[mini,j]:=x;
end;

writeln('Матрица после преобразования:');
for i:=1 to n do
begin
for j:=1 to m do
 write(a[i,j],' ');
writeln;
end;

end.

0 0

4 года назад