Написано на Pascal
var a:real;i,k:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
begin
read(a);
if (a>=2.5) and (a<=5.2) then begin
writeln('Число ',a,' входит в интервал');
k:=k+1;
end;
end;
if k=0 then writeln('Таких чисел нет');
end.<span>
</span>
var a:array[1..10000] of integer;
x,n,i: integer;
begin
readln(x,n);
for i:=1 to n do a[i]:=x+n-i;
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
6 4
9 8 7 6
Если без решения, то 1011101001
Б) 8: 5 братьев и 3 сестры
в) да, если маляры - девушки (сёстры)
Профессия работника железнодорожного транспорта-9 букв, вторая Р:
ПРОВОДНИК