Var x,y,i,min,max1,max2:integer;
begin
writeln('пожалуйста, введите поочередно 3 числа');
readln(x);readln(y);readln(i);
if (x<y) and (x<i) then begin min:=x; max1:=y; max2:=i; end;
if (i<y) and (i<x) then begin min:=i; max1:=y; max2:=x; end;
if (y<x) and (y<i) then begin min:=y; max1:=x; max2:=i; end;
writeln('минимальное число =',min);
writeln('произведение 2-х максимальных =',max1*max2);
end.
Пример работы:
пожалуйста, введите поочередно 3 числа641281минимальное число =1произведение 2-х максимальных =8192
Ну, для того, чтобы сравнить эти 2 значение. Нужно обратиться непосредственно к словарю.
Чем отличаются данные от программы?
<span><u>Данные</u> могут обрабатываться человеком, которому принадлежат сами данные.
</span><u>Программа </u>Управление компонентами вычислительной системы и формирование среды для функционирования прикладных программ берёт на себя системное программное обеспечение<span>, наиболее важной составляющей которого является </span>операционная система<span>. То есть все делает компьютер.)
</span><span>Общее.
</span>Скорее всего, что у данных есть 2 типа - двоичные и текстовые. Ну, а так как программа часть компьютера, то эти типы и ей принадлежат.)
Двоичные данные обрабатываются только специализированным программным обеспечением<span>, знающим их структуру, все остальные программы передают данные без изменений.
</span>Ну, и.
С точки зрения программиста, данные — это часть программы, совокупность значений определённых ячеек памяти, преобразование которых осуществляет код. С точки зрения компилятора, процессора, операционной системы, это совокупность ячеек памяти, обладающих определёнными свойствами (возможность чтения и записи ), невозможность исполнения).
Если, что-то не так, то заранее извини.)
<span>Виды информации
Информация может существовать в различных видах:
текст, рисунки, чертежи, фотографии;световые или звуковые сигналы;радиоволны;электрические и нервные импульсы;магнитные записи;жесты и мимика;запахи и вкусовые ощущения;хромосомы, через которые передаются по наследству признаки и свойства организмов, и т. д.
</span>
===== PascalABC.NET =====
begin
var a := ReadReal('Введи значение синуса угла:');
var b := Sqrt(1 - a * a);
Print('Коснус этого угла равен', b)
end.
Пояснение: sin²x + cos²x = 1
8 бит=1 байт.
16 кбайт=2^14 байт
1 страница содержит 2400 байт
2^14/2400=6.__
у нас должно быть целое кол-во страниц => 6 штук