a = int(input())-1
b = int(input())
c = int(input())+1
d = ""
while (c!=0) and (a < b) and (c > (b - a)):
a +=1
d = d+" "+str(a)
c -=1
print(d)
P.s вводим: "5", "15", "11", получаем "5 6 7 8 9 10 11 12 13 14 15"
или вводим: "5", "10", "6", получим "5 6 7 8 9 10"
Девочки-x
Мальчики - 3x
Всего - 12
x+3x=12
4x=12
x=3
3x=9
Ответ: 3 девочки, 9 мальчиков
Решение в файле
uses crt;
var a: array of integer; n, i: integer; begin
WriteLn('Введите N');ReadLn(n);
a := new integer[n];
randomize; //заполняем массив случайными значениямиfor i:=0 to n-1 dobegina[i]:=random(100)-50;Write(a[i]:5);end;Writeln;
for i:=0 to n-1 do //заменяем положительные элементы нулемbeginif a[i]>0 then a[i]:=0;Write (a[i]:5);end;writeln;readln;<span>end.</span>
//PascalABC.NET
//Версия 3.4.2
begin
range(1,ReadInteger('n=')).Where(x->x.IsEven).Println;
end.
Program n1;
var a,b,c: real;
begin
write('введите стороны через пробел:');
readln(a,b,c);
writeln('периметр: ',a+b+c);
end.