Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 35. Значение k = 35 также включается в подсчёт раз личных значений k. var k, i : longint; function f(n: longint) : longint; begin f := n*(n-1)+10 end; begin readln(k); i := 0; while (f(i) < k) do i := i+1; writeln(i) end.

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.

#include <iostream>

using namespace std;

int main() {
    int i,n,k;
    cout<<"Vvedite chislo elementov massiva: ";
    cin>>n;
    int a[n];
    for (i=0; i<n; i++){
        cout<<"Vvedite "<<i+1<<"-e chislo massiva: ";
        cin>>a[i];
    }
    cout<<"Vvedite znachenie k: ";
    cin>>k;
    int m=0;
    for(i=0;i<n;i++) if (abs(a[i])>2*k) m++;
    cout<<"Naydeno elementov: "<<m<<"\n";
    system("pause");
    return 0;
}

Тестовое решение:

Vvedite chislo elementov massiva: 6
Vvedite 1-e chislo massiva: -7
Vvedite 2-e chislo massiva: 2
Vvedite 3-e chislo massiva: 0
Vvedite 4-e chislo massiva: -5
Vvedite 5-e chislo massiva: 8
Vvedite 6-e chislo massiva: 3
Vvedite znachenie k: 2
Naydeno elementov: 3
Для продолжения нажмите любую клавишу . . .