Function f(x: real): real;
begin
f := x * sqr(x) - sin(x)
end;
var
a, b, h, x: real;
begin
Write('Введите через пробел a,b,h: ');
Readln(a, b, h);
x := a;
while x <= b do
begin
Writeln('x=', x:0:3, ', f(x)=', f(x):0:5);
x := x + h
end
end.
Алг Число
нач
цел n, n1, k, f
вывод "Введите целое число", нс
ввод n
n1:= div(n,10)
k:= mod(n,10)
f:= 1
нц пока n1<>0
если mod(n1,10) > k то
f:= 0
все
k:= mod(n1,10)
n1:= div(n1,10)
кц
если f=1 то
вывод "Да."
иначе
вывод "Нет."
кон
Ответ: 5
Выполняем построчно:
1)
a = 30
2)
a = 30
b = 6
3)
a = 8
b = 6
4)
Заходим в первый цикл
a = 8
b = 6
c = 8 - 30 + 27 = 5
А) В ответе будут все документы, в которых встречается слово чемпионы и слова бег и плавание встречаются в одном предложении.
б) В ответе будут документы, в которых в одном предложении есть слова чемпионы и плавание.
в) В ответе будут документы, в которых есть слова чемпионы, бег и плавание не зависимо от того, в одном они предложении или нет.
г) Здесь в одном предложении должны быть все слова: чемпионы, Европа, бег, плавание.
Круги Эйлера на рисунках.
В порядке возрастания количества ответов: г, б, а, в.
Var
a1,b2,c,d:integer;
begin
write('Введите числа через пробел: ');
read(a1);
for d:=2 to 10 do begin
read(b2);
if b2>a1 then inc(c);
a1:=b2;
end;
if c=9 then writeln('Да') else writeln('Нет');
end.