Решать надо примерно так:
Создать массив целых чисел(к примеру на 20 элементов)
Объявить две переменные(счётчик и B)
Написать пользователю чтобы он ввёл значение для B
Заполнить массив числами через цикл for и генератор псевдо-слуайных чисел(к примеру от 0 до 50)
Всё в том же цикле сделать условие типа "если a[i] > B и если a[i] % 5 == 0(делится на 5 без остатка)", то увеличить счётчик на единицу, и после этого условия вывести значение элемента в строчку через пробел
Ну и в конце вывести значение счётчика.
В паскале не разбираюсь, поэтому вот пример решения на C++
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cstdlib>
using std::rand;
using std::srand;
#include <ctime>
using std::time;
int main()
{
int a[20], counter = 0, b;
srand(time(0));
cout << "Enter B: ";
cin >> b;
for(int i = 0; i < 20; i++)
{
a[i] = rand() % 51;
if(a[i] > b && a[i] % 5 == 0)
{
counter++;
}
cout << a[i] << ' ';
}
cout << "\n" << counter << " numbers" << endl;
cin.get();
return 0;
}
<span>•285 в десятичной системе счисления(сс)_=_11D в шестнадцатеричной cc
11D(16) = 1*16^2+1*16+13 = 285(10)
•111111 в двоичной сс_<_1111 в восьмеричной сс
111111(2) = 77(8)
•6С в шестнадцатеричной см_>_101001 в двоичной сс
101001(2) = 29(16)
•55 в шестнадцатеричной сс _=_125 в восьмеричной сс
55(16) = 5*16+5 = 85(10)
125(8) = 1*8^2+2*8+5 = 64+16+5 = 85(10)</span>
Перепроверь массив и скомпилируй.
// Example program#include <iostream>#include <string>
using namespace std;
int count_;const unsigned int DIM1 = 6;const unsigned int DIM2 = 6;int m[DIM1][DIM2] = { { 'S', '.', '.', '.', '#', '#' }, { '#', '.', '#', '.', '.', '.' }, { '.', '.', '#', '.', '.', '#' }, { '.', '.', '#', '#', '#', '.' }, { '#', '.', '.', '.', '#', '#' }, { '#', '#', '#', '.', '.', 'F' }};int find_p(int x, int y) { if (x < 0 || x > 5 || y < 0 || y > 5) return 0; if (m[y] [x] == 'F') return 1; if (m[y] [x] != '.' && m[y] [x] != 'S') return 0; m[y] [x] = '+'; count_++; if (find_p (x, y - 1)) return 1; if (find_p (x + 1, y)) return 1; if (find_p (x, y + 1)) return 1; if (find_p (x - 1, y)) return 1; m[y] [x] = 'x'; return 0;}int main(){ find_p(0, 0); cout<<"\n Otvet="<<count_;}
1)
Var
n,i:integer;
Begin
Write('n = ');ReadLn(n);
For i:= 1 to 9 do
WriteLn(i,'*',n,' = ',i*n);
End.
2)
Var A,B:integer;
Begin
WriteLn('Введите натуральное число');
ReadLn(A);
B:=A mod 10;
While (A div 10 > 0) do
A:=A div 10;
if A>B then WriteLn('Первая больше')
else if A<B then WriteLn('Последняя больше')
else WriteLn('Цифры равны')
End.
