Держи. Код на С++,могу переделать под Паскаль.
Возьми последнюю цифру своего числа, добавь свой возраст, размер всего числа и добавь С Богом! Мб поможет.
Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>
Для не случайных чисел:
Код на C++
#include <iostream>
using namespace std;
int main(){
setlocale(LC_ALL, "Russian");
int array[100]; //инициализировали массив
int morethen51 = 0;
for(int i = 0; i < 100; i++){
array[i] = i; //Заполняем массив
}
for(int i = 0; i < 100; i++){
if(array[i] > 51){
morethen51++;
}
}
cout << "Чисел, которые больше 51: " << morethen51;
return 0;
}
#include <stdio.h>
void foo(int *a)
{
a[2] = 666;
}
int main(void)
{
int a[5] = { 5, 6, 9, 1, 3 };
foo(a);
for (int i = 0; i < 5; ++i) printf("%d ", a[i]);
}