Білу және түсіну деңгейі
1. ақпараттың өлшем бірлігі не үшін керек?
2. бит дегеніміз не?
3. байт, килобайт, мегабайт және гигабайт дегеніміз не?
4. өлшем бірліктер өзара қалай байланысты?
5. берілген ақпараттың өлшем бірліктерін өсу реті бойынша
дар: tбайт; кбайт; байт; мбайт; гбайт.
//Специально для
//Все данные вводятся с клавиатуры
program Sravnenie;
var
a, b: integer; // Стороны 1-ого прямоугольника
d, c: integer;// Стороны 2-ого прямоугольника
S1, S2: integer; // Площадь
buf: integer;// Если площадь 1-ого будет меньше 2-ого
//поменяем местами,что бы избавиться от минуса
razn: integer; // Разница 2-ух площадей
begin
Write('Введите стороны 1-ого прямоугольника: ');
Readln(a, b);
Write('Введите стороны 2-ого прямоугольника: ');
Readln(d, c);
S1 := a * b; //Площадь 1-ого
S2 := d * c; //Площадь 2-ого
if S1 < S2 then
begin
buf := S1;
S1 := S2;
S2 := buf;
end;
razn := S1 - S2;
Writeln('Площадь 1-ого больше площади 2-ого в - ',razn, ' раз');
end.