Алг
нач
цел a, b, c
ввод a
ввод b
c := a + b
вывод c
кон
Решение заданиий 2 и 3 - в файлах.
1) 2025бит = 16 200 байт
7бит = 56 байт
1Кбайт = 1024 байт
Следовательно: 1байт,56байт,1000байт,1024байт,16 200 байт.
2) 1Кбайт = 1024 байт
2^15байт = 32 768байт
32 768/1024 = 32Кбайт
3) Ответ "В".
Т.к в 1 симовле содержить определенное кол-во информации, а сообщение "в)" самое большое.
14:
CLS
PRINT "Otrezok [a,b]:"
INPUT " a = ", a
INPUT " b = ", b
INPUT "Shag = ", h
FOR x = a TO b STEP h
IF (-1 <= x) AND (x <= 1) THEN
PRINT "y("; x; ") = "; 1 / x + SIN(x * x)
ELSE
PRINT "y("; x; ") = "; x + 1 / (x * x)
END IF
NEXT x
END
15:
CLS
PRINT "Otrezok [a,b]:"
INPUT " a = ", a
INPUT " b = ", b
INPUT "Shag = ", h
FOR x = a TO b STEP h
IF (-1 <= x) AND (x <= 1) THEN
PRINT "y("; x; ") = "; 1 / (x * x) + 1
ELSE
PRINT "y("; x; ") = "; x - 5
END IF
NEXT x
END
Var a,b:integer;
begin
readln(a,b);
if a>b then write(a)
else write(b)
end.