Function nod (a,b: integer): integer;
Begin
Repeat
if a > b then
a:= a mod b
else
b:= b mod a;
until (a = 0) or (b = 0);
nod:= a + b;
End;
Var n,max,i:int64;
Begin
write('n = ');
Readln(n);
max:=0;
if n mod 2 = 0
then max:=n div 2
else for i:=1 to n div 2 do
if nod(i,n-i)>max then max:=i;
writeln(max,' ',n-max,' ' ,nod(max,n-max));
End.
Пример:
n = 11111
271 10840 271
Var
a, b, x, y: real;
begin
Write('Введите через пробел значения a и b: ');
Readln(a, b);
if a < b then x := 2 * a * +2 * b
else
if a = b then x := 18
else x := a * b - 45;
Write('x=', x:0:5);
if x <= 0 then Writeln(', при x<=0 вычислить y невозможно')
else
begin
if (x > 0) and (x < 1) then y := x - ln(x) {в формуле log, но основание не указано}
else y := ln(x) + x;
Writeln(', y=', y:0:5)
end
end.
Тестовое решение:
Введите через пробел значения a и b: 3 6.4
x=76.80000, y=81.14120
Введите через пробел значения a и b: 8 4
x=-13.00000, при x<=0 вычислить y невозможно
Фото из учебника, вы че все такие тупые то? надо фотки присылать и еще сама раскрасить не можешь чтоли?
5 бит.
2 в 5-ой степени = 32
1. 32 * 40 * 48 = 61440 символа
8 бит = 1 байт
ответ: 61440 байт
2. 16 * 30 *32 = 15360 символов
16 бит = 2 байта
ответ 15360 * 2 = 30720 байт
3. 14 * 36 * 64 = 32256 символа
ответ 32256 * 2 = 64512 байта