Var
x,y:real;
begin
Write('Введите значение аргумента x: ');
Readln(x);
if x<=-7 then y:=25
else
if x<=5 then y:=17*x-1
else y:=sqr(x);
Writeln('Значение функции равно ',y:0:4)
end.
Тестовое решение:
Введите значение аргумента x: 3.78
Значение функции равно 63.2600
var a:real;
b:integer;
begin
readln(a);
b:=round(a*1000)mod 1000;
write(b div 100 + b mod 10 + b mod 100 div 10);
end.
1)48*40=1920 (строк) - количество строк в одной странице
2)1920*64=122880 (символ) - количество символов в одной странице
т.к код - 8 бит, то 1 символ = 1 байт
Отсюда следует, что 122880 байт - вес файла.
3)122880/1024=120 (Кб)
Ответ: 1)
Var a, b: integer;
begin
write('Первое число = ');
readln(a);
write('Второе число = ');
readln(b);
if a > b then
writeln(a + b)
else
writeln(a * b);
end.