Var c,b,e,n,a:integer;
begin
write('введите количество остановок => ');
readln(a);
a:=a+1;
write('на какой остановке живёт ребёнок => ');
readln(b);
c:=0; n:=0;
for c:=1 to b do begin;
e:=e+1;
end;
for c:=a downto b do begin
n:=n+1;
end;
<span>if (e<n) then writeln('кол-во остановок => ',e-1) else writeln('кол-во остановок => ',n-1); </span>
<span>end.</span>
Столько же, во сколько раз отрезок а больше отрезка б.
Там нужен точный ответ или так?)))
var
n,i: integer;
a: array [1..10] of integer;
begin
n:=0;
for i:=1 to 10 do
begin
read (a[i]);
if a[i] mod 2=0 then n:=n+1;
end;
writeln ('четных значений -',n);
end.
#include <cmath>
#include <iostream>
#include <iomanip>
int main()
{
float
a,b,
z;
std::cin >> a >> b;
z = ((a-1)*sqrt(a) - (b-1)*sqrt(b))/
(sqrt(pow(a, 3) * b) + a*b + pow(a, 2) - a);
std::cout << "Значение выражения 1 = " << std::setprecision(3) << z << std::endl;
z = (sqrt(a) - sqrt(b))/
a;
//std::cin >> a >> b;если значения нужны другие.
std::cout << "Значение выражения 2 = " << std::setprecision(3) << z;
}
g++ compiler