Var
Pr: set of 1..20;
x: integer;
begin
Pr := [1, 2, 3, 5, 7, 11, 13, 17, 19];
writeln('Вводите целые числа от 1 до 20, выход по 99');
repeat
write('Число ');
readln(x);
if x < 21 then
if x in Pr then writeln('простое')
else writeln('не простое')
until x = 99
end.
Тестовое решение:
Вводите целые числа от 1 до 20, выход по 99
Число 18
не простое
Число 3
простое
Число 15
не простое
Число 23
Число 19
простое
Число 99
Ходить:часы,человек,животное.
плыть:лодка,утка,человек.
вертеться:человек,юла.
освещать: лампа, луна, фонарик
#include <iostream>
using namespace std;
int main() {
int n=7;
int a[n][n];
for(int i = 0; i < (n+1)/2; i++){
for(int j=0; j<n; j++){
a[i][j]=0; a[n-i-1][j]=0;
}
for(int j = i; j < n-i; j++){
a[i][j] = 1;
a[n-i-1][j] = 1;
}
}
for(int i = 0; i < n; i++) {
for(int j = 0; j < n; j++)
cout << a[i][j] << ' ';
cout << endl;
}
}
Пример:
<span>1 1 1 1 1 1 1
0 1 1 1 1 1 0
0 0 1 1 1 0 0
0 0 0 1 0 0 0
0 0 1 1 1 0 0
0 1 1 1 1 1 0
1 1 1 1 1 1 1</span>