Франция- Париж, Чехия - Прага, Германия - Берлин, Испании - Мадрид, Португалии -Лиссабон
Один бит равен одному символу
Program qq;
var a,b,c, max:real;
begin
read(a,b,c);
if (a>b) then
begin
if (a>c) then max:=a
else max:=c;
end
else
begin
if (b>c) then max:=b
else max:=c;
end;
writeln(max);
end.
Первый вариант: если десятичный логарифм от (2x+3).
Var X:real;
Begin
Write('x = ');ReadLn(x);
if x<=-1.5 then WriteLn('Ошибка: Нельзя вычислить логарифм от нуля!')
else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn('f(',x,') = ',Ln(2*x+3)*4/(Tan(3*x)*Ln(10)))
End.
Второй вариант: если логарифм по основанию (2x+3) от 4.
Var X:real;
Begin
Write('x = ');ReadLn(x);
if x<=-1.5 then WriteLn('Ошибка: Основание логарифма должно быть больше нуля!')
else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn('f(',x,') = ',Ln(4)/(Tan(3*x)*Ln(2*x+3)))
End.
Program qq;
uses crt;
var A:array [1..20] of integer; i: integer;
begin
for i:=1 to 20 do
readln (a[i]); //ввод массива. Не указали откуда дан массив, так что введем его через enter
for i:=1 to 20 do
if a[i]<10 then
a[i]:=0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль
for i:=1 to 20 do
write (a[i], ' '); //Вывод массива на экран
<span>end.</span>