Для того что бы разместить информацию на дискейте (1,44) объемом (2048) понадобиться;
2048/1,44=1422
1) Перевести в троичную симметричную систему числа:
а) 17; б) -23; в) 41; г) -31.
2) Перевести в десятичную:
а) +-0---+0; б) --0-++0-; в) +00-+++; г) +---000+.
Номера минимума и максимума не получается сделать паскаль выделывается чо то
var a: array[1..5] of integer; i,min,max,summa,nmin,nmax:integer;begin
for i:= 1 to 5 do readln(a[i]);
min:=a[1];for i:= 2 to 5 dobeginif a[i]<a[1] then begin min:=a[i];end;
end;
max:=a[1];for i:= 2 to 5 dobeginif a[i]>a[1] then max:=a[i];end;summa:=min+max;
writeln('min=',min);writeln('min+max=',summa);writeln('nomer min=',nmin);writeln('nomer mmax=',nmax);
end.<span>
</span>
Дисковод - это устройство для считывания дисков (не давно отвечал на другой вопрос по этому на этот отвечать можно будет через 40 сек. ждём )
Var
A, B, X : Integer;
begin
Writeln('Введите кол-во газет:'); // Просим пользователя ввести кол-во газет
Readln(B); // Считываем то, что он ввел
Writeln('Введите цену первых 75 газет:');<span>
</span> <span>Readln(A);
</span>
Writeln('Введите цену остальных газет:');<span>
</span> <span>Readln(X);
</span> if B <= 75 then // Условие: если газет 75 или меньше, то...
Writeln('Мальчик заработает ', B * A, 'рублей.')
else // Иначе...
Writeln('Мальчик заработает ', 75 * A + (B - 75) * X, 'рублей.');
end.
