Ответ:
Объяснение:
program kalk;
var
a, b, c :integer;
begin
writeln('Введите 1 число:');
readln(a);
writeln('Введите 2 число:');
readln(b);
writeln('Введите 3 число:');
readln(c);
writeln('Cумма трех чисел равна',a+b+c);
writeln('Разность трех чисел равна',a-b-c);
writeln('Произведение трех чисел равно',a*b*c);
end.
Есть вариант поставить вместо:
writeln('Введите 1 число:');
readln(a);
writeln('Введите 2 число:');
readln(b);
writeln('Введите 3 число:');
readln(c);
поставить так:
writeln('Введите 3 числа: ');
readln(a, b, c);
Найдем размер рисунка в битах:
768*96*log2(8)=73 728*3=221 184 бит
Переведем в килобайты:
221 184/(8*1024)=27 кБт
Var a, b, c, r : integer;
begin
c:=0;
r:=9;
write('Введите число: ');
readln(a);
while a div 10 <> 0 do
begin
b:=a mod 10;
a:=a div 10;
if b>c then c:=b;
if b<r then r:=b;
end;
b:=a mod 10;
a:=a div 10;
if b>c then c:=b;
if b<r then r:=b;
writeln('Разность: ', c-r);
end.
ДА ХОТЬ ДЛЯ 10 ЗНАЧНОГО))))
<span>а) хранение программ начальной загрузки компьютера и тестирования его узлов</span>
Ответ:
1500
Объяснение:
фрегат | эсминец = фрегат + эсминец - фрегат&эсминец
фрегат&эсминец = фрегат + эсминец - фрегат | эсминец
фрегат&эсминец = 2000 + 2500 - 3000 = 1500