Не знаю правельно или нет
Program Calculator;
var
a,c: real;
b: char;
begin
write('Введите первое число : ');
readln(a);
write('Введите действия с числами : ');
readln(b);
write('Введите второе число : ');
readln(c);
case b of
'+':a:=a+c;
'-':a:=a-c;
'/':a:=a/c;
'*':a:=a*c;
else
write('Вы вели не правельное действие!!!')
end;
write('Результат : ',a:6:2 )
end.
Функция нахождения индекса наименьшего элемента массива на языке Си:
int getMin(int* X, int size) {int i, m = 0;for(i = 0; i < size; ++i)if(X[i] < X[m]) m = i;return m;}
X - массив, size - размер массива
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
if (ReadReal('введите возраст:')<18) then write('несовершеннолетний') else write('совершеннолетний');
end.
1)Мульти: 16=2 в 4 ст. 1 символ=4 бит
120*4=480 бит
Пульти: 32=2 в 5 ст. 1 символ=5 бит
96*5=480 бит
Сообщения равны.
2) 130*I=650
i=5 бит вес символа
Наименование Макс. кол-во (шт) Цена, ед
Пирожки 2000 2
Шанежки 1500 4
Булочки 1200 1
Пирожное 700 8
Изделия
Наименование Количество
Пирожки 0
Шанежки 400
Булочки 0
Пирожное 700
1100 1100 склад
Максимальная выручка цеха 7200