Var
k, x, z: real;
begin
readln(x);
readln(z);
if x > z then
k := sqrt(2 * (x - z) / z);
if x <= z then
k := x + z;
println(k);
end.
Число -10 не больше или равно двум, не лежит в пределах от 1 до 4, Не равняется 2, 10, -4, 3, 7, при умножении на себя не даёт число, меньшее нулю. Значит, что программа выведет: "дерево"
Ответ:
240 строк
Объяснение:
Первое число это ширина, второе высота
Var a: String;
sum,i: Integer;
begin
sum:=0;
writeln('Введите текст');
readln(a);
for i:=1 to Length(a) do
begin
if a[i]='а' then sum:=sum+1;
end;
writeln('Буква а встречается: ',sum,' раз(а)');
end.
Var i, h, res: integer;
begin
write('H = ');
readln(h);
res:=1;
for i:=1 to h do
res:=res*i;
writeln(h, '! = ', res);
<span>end.</span>