201/1024=0,196 //Переводим в Мб
500-0,196=499,804 мб
Ответ:499,804 Мбайт
Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :)
program Project1;
var
TotalA, TotalB, SoldA, SoldB : integer;
priceA, priceB, sum: real;
begin
Write(' Введите цену товара "А":');
Readln(priceA);
Write(' Введите количество товара "А" в начале рабочего дня:');
Readln(TotalA);
Write(' Введите количество проданного товара "А":');
Readln(SoldA);
Write(' Введите цену товара "Б":');
Readln(priceB);
Write(' Введите количество товара "Б" в начале рабочего дня:');
Readln(TotalB);
Write(' Введите количество проданного товара "Б":');
Readln(SoldB);
sum:= ((priceA*SoldA)+(priceB*SoldB));
writeln('Выручка от продажи двух товаров за день:', sum:5:2);
readln;
end.
Не очень хорошо сформулирован вопрос.Эта программа генерирует 3 числа от -9 до 9 и выводит сначала все числа,затем наибольшее и наименьшее.
var a,b,c : Integer;
begin
Randomize;
a:=random(19)-9;
b:=random(19)-9;
c:=random(19)-9;
Writeln(a+' '+b+' '+c);
if((a>b)and(a>c)) then
Writeln('Наибольшее '+a)
else if(b>c) then
Writeln('Наибольшее '+b)
else
Writeln('Наибольшее '+c);
if((a<b)and(a<c)) then
Writeln('Наименьшее '+a)
else if(b<c) then
Writeln('Наименьшее '+b)
else
Writeln('Наименьшее '+c);
end.
965 в двоичной системе: 1111000101
11100100011 в десятичной системе: 1827
Объем информации в первом случае: I=v1*t1, во втором I=v2*t2, где v- скорость передачи, t- время передачи. Так как объем информации в первом и во втором случае одинаков составим уравнение:
v1*t1=v2*t2
t2= v1*t1/v2 = 5000*25/10000= 12,5 с.