Программа для решения задачи:
var x,f:real;
begin
write('x=');readln(x);
if x<=-3 then f:=9 else f:=1/(x*x+1);
writeln('f(x)=',f:5:3);
<span>end.

Пример:
x=-4
f(x)=9.000

Блок-схема - в прилагаемом файле.</span>

0 0

4 года назад

Помогите пожалуйста в паскале! С клавиатуры вводится 4 целых числа. Определить максимальное среди них. Определить, сколько макси

iguan

Program maximum;
Var a, max, k, i: integer;
Begin
max:=0;
k:=0;
For i:=1 to 4 do
begin
Readln(a);
if (a > max) then
Begin
max:=a;
k:=1;
end else begin
If (a = max) then
k:=k+1;
end;
end;
end;
Writeln(max,k);
end.

0 0

4 года назад

В каком ответе сообщение написано с использованием формального языка? а)Белеет парус одинокий... b)May name is John c) F=mg d)Ин

Николай4389 [21]

С) F=mg
это называется формальный язык)

0 0

4 года назад

1 из удобных способов представления графической информации с помощью чисел. ПЛИИИИИИИИЗ СРООООООООООЧНО! !!!!!!!!!!!!

Азамат1 [161]

Метод-координат.
вот твой вопрос???
............

0 0

4 года назад