Var
x0,xn,c:real;
x,y,xmax,ymax:real;
begin
writeln('Xнач, Xкон:');
readln(x0,xn);
write('С = '); readln(c);
x:=x0;
xmax:=x; ymax:=x*x-100*x+10;
repeat
x:=x+c;
y:=x*x-100*x+10;
if y>ymax then begin xmax:=x; ymax:=y; end;
until x>=xn;
writeln('xmax = ',xmax,' ymax = ',ymax);
end.
Пример:
Xнач, Xкон:
-10 20
С = 1
xmax = -10 ymax = 1110
Var a : integer;
begin
writeln('Введите число');
read(a);
if (a mod 2 = 0) then a:= a div 2 else a:=a;
writeln(a);
end.
Ответ:
Формулы на картинках.
Объяснение:
Проценты сначала убиваешь разделив на 100 (0,74 и т.д.)
Потом выделяешь диапазон В1:В9 и ставишь формат чисел процентный. Потом регулируешь, чтобы отображались только целые значения.
бит приходится на 1 символ
количество символов в данном алфавите