1)4. 5)1 другие незнаю прости
var
a,b,i,S:integer;
x: array[1..100] of integer;
begin
for i:=1 to 31 do
begin
x[i]:=random(1001);
write(x[i]:4);
end;
writeln;
readln(S);
writeln;
for i:=1 to 31 do
begin
if x[i]>S then
write(i:4);
end;
end.
Ну по логике подходит обонятельная) 12 букв))
Учитель чтобы сделать какие нибудь презентации детям.Врач чтобы смотреть биение сердца,а библиотекарь что бы смотреть наличие книг в библиотеке.
#include <iostream>
int main()
{
int x, k = 0;
cin >> x;
for (int i = 1; i <= x; i++)
{
if (x % i == 0 )
{
k++;
}
}
cout << k;
return 0;
}
Попробуйте так
Если будут вопросы – обращайтесь :)