beginvar x1, x2, x3, x4, y1, y2, y3, y4: double; writeln('Введите x1'); readln(x1); writeln('Введите x2'); readln(x2); writeln('Введите x3'); readln(x3); writeln('Введите x4'); readln(x4); writeln('Введите y1'); readln(y1); writeln('Введите y2'); readln(y2); writeln('Введите y3'); readln(y3); writeln('Введите y4'); readln(y4);if((y1-y4=y2-y3) AND (x2-x1=x3-x4)) thenwriteln('ABCD - параллелограмм')else writeln('ABCD - не параллелограмм');end.
Имя ячейки конечно нельзя удалить
var
ed, m: Integer;
kg: Real;
begin
Write('Введите № единицы массы (1-кг, 2-мг, 3-гр, 4-тонна, 5-центнер): ');
Readln(ed);
if not (ed in [1..5]) then begin
Writeln ('Ошибка ввода номера для единицы массы!');
Exit;
end;
Write('Введите массу в этих единицах: ');
Readln(m);
kg := 0;
case ed of
1: kg := m;
2: kg := m / 1000000;
3: kg := m / 1000;
4: kg := m * 1000;
5: kg := m * 100;
end;
WriteLn ('Масса = ' + FloatToStr(Kg) + ' кг.');
end;
1 минута 6 секунд = 66 секунд
16 384 / 8 / 1024= 2 Килобайта/с
2*66= 132 Килобайта
Ответ. Объём файла 132 килобайта.
10010111=
2625252625262626
10000000=2625252525252525
10010010
=262525262525262520