Інформаційними об'єктами можна вважати … Виберіть одну або декілька відповідей: a. письмовий стіл b. затемнення сонця c. комп'ютер d. учня e. проміжок часу
1. Program tt; var A,B,C,D: Real; begin Writeln ('Введите массу воды в граммах.'); Readln(A); Writeln ('Введите массу соли в граммах.'); Readln(B); D := B+A; C := B/A; Writeln ('Массовая доля соли в раствворе - ',C,'.'); End. 2. Program tt; var A,B,PL,Per: Real; begin Writeln ('Введите длинну первого катета.'); Readln(A); Writeln ('Введите длинну второго катета.'); Readln(B); PL := (B*A)/2; PER := sqrt(B*B+A*A)+A+B; Writeln ('Площадь - ',PL,'.'); Writeln ('Периметр - ',PER,'.'); End.
ПЕР число: ЦЕЛ; шестн: РЯД 32 ИЗ ЗНАК; сч: ЦЕЛ; зн: ЗНАК;
ЗАДАЧА ШестнЦифра(цифра: ЦЕЛ): ЗНАК; УКАЗ ЕСЛИ цифра < 10 ТО ВОЗВРАТ ВЗНАК(ВЦЕЛ("0") + цифра) ИНАЧЕ ВОЗВРАТ ВЗНАК(ВЦЕЛ("A") - 10 + цифра) КОН КОН ШестнЦифра;
УКАЗ число := Приём.Число(); шестн := ""; Вывод.Цепь("^");
ПОКА число > 0 ВЫП шестн[ДЛИНА(шестн) + 1] = 0X; шестн[ДЛИНА(шестн)] = ШестнЦифра(число ОСТАТОК 16); число := число ДЕЛИТЬ 16 КОН;
Program tt;
var A,B,C,D: Real;
begin
Writeln ('Введите массу воды в граммах.'); Readln(A);
Writeln ('Введите массу соли в граммах.'); Readln(B);
D := B+A;
C := B/A;
Writeln ('Массовая доля соли в раствворе - ',C,'.');
End.
2.
Program tt;
var A,B,PL,Per: Real;
begin
Writeln ('Введите длинну первого катета.'); Readln(A);
Writeln ('Введите длинну второго катета.'); Readln(B);
PL := (B*A)/2;
PER := sqrt(B*B+A*A)+A+B;
Writeln ('Площадь - ',PL,'.');
Writeln ('Периметр - ',PER,'.');
End.
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
число: ЦЕЛ;
шестн: РЯД 32 ИЗ ЗНАК;
сч: ЦЕЛ;
зн: ЗНАК;
ЗАДАЧА ШестнЦифра(цифра: ЦЕЛ): ЗНАК;
УКАЗ
ЕСЛИ цифра < 10 ТО ВОЗВРАТ ВЗНАК(ВЦЕЛ("0") + цифра)
ИНАЧЕ ВОЗВРАТ ВЗНАК(ВЦЕЛ("A") - 10 + цифра) КОН
КОН ШестнЦифра;
УКАЗ
число := Приём.Число();
шестн := "";
Вывод.Цепь("^");
ПОКА число > 0 ВЫП
шестн[ДЛИНА(шестн) + 1] = 0X;
шестн[ДЛИНА(шестн)] = ШестнЦифра(число ОСТАТОК 16);
число := число ДЕЛИТЬ 16
КОН;
ОТ сч := 0 ДО ДЛИНА(шестн) - 1 ВЫП
зн := шестн[сч];
шестн[сч] := шестн[ДЛИНА(шестн) - 1 - сч];
шестн[ДЛИНА(шестн) - 1 - сч] := зн
КОН;
Вывод.Цепь(шестн)
КОН Задание.