Program Neprogram;
Var vek,god: integer;
BEGIN
writeln('Vvedite god');
readln(god);
if god mod 10 = 0 then
BEGIN
vek:= god div 100;
writeln(vek,' stoletie');
writeln
End
ELSE
Begin
vek:= god div 100 + 1;
writeln(vek,' stoletie');
writeln;
End
END.

Vvedite god
1900
19 stoletie

Vvedite god
1991
20 stoletie

program Neprogram;
Var number,summ,proiz:integer;
BEGIN
writeln('Vvedite chslo');
readln (number);
if number div 100 > 0 then
  if number div 100 < 10 then
     Begin
     summ:= (number div 100) + (number mod 100 div 10) + (number mod 100 mod 10);
     proiz:= (number div 100) * (number mod 100 div 10) * (number mod 100 mod 10);
     writeln('Summa chisel = ',summ);
     writeln('Proizvedenie chisel = ',proiz);
     End
     else
     writeln('Nevernoe chislo')
else
  writeln('Nevernoe chislo');
END.

Vvedite chslo
99
Nevernoe chislo

Vvedite chslo
55555
Nevernoe chislo

Vvedite chslo
123
Summa chisel = 6
Proizvedenie chisel = 6

Vvedite chslo
567
Summa chisel = 18
Proizvedenie chisel = 210

uses crt;
var mas:array[1..5] of byte;
    i:byte;
    x,cod:integer;
    er,num:string;
Begin
clrscr;
for i:=1 to 5 do
begin write('Input ',i,' num:'); readln(mas[i]); end;
clrscr;

num:='';

for i:=1 to 5 do begin
Str(mas[i],er);
num:=num+er; end;

val(num,x,cod);
writeln ('Num: ',x);
writeln ('Sqr: ',Sqr(x));
writeln ('Sqrt: ',Sqrt(x):2:2);

readkey;
End.

#include <iostream>
#include <time.h>

using namespace std;

void main(void)
{
double MyArray[10000];
double Summ;
int intI;

setlocale(0,"");
srand((unsigned double)time(0));
intI=1;

while (intI<=10000)
{
MyArray[intI]=rand()%10; // Генерируем случайные числа от 0 до 9
Summ = Summ+MyArray[intI];
++intI;
}

cout << "Сумма всех чисел = " << Summ << endl;
system("pause");
}

Сумма всех чисел = 45335
Для продолжения нажмите любую клавишу . . .

#include <stdio.h>
#include <math.h>

int main(int argc, char ** argv){
	double a,x,y,z;
	
	(void) printf("Enter values for X,Y,Z:");
	(void) scanf("%f%f%f",&x,&y,&z);

	a = (3 + exp(y) - 1) / (1 + pow(x,2)*abs(y - tan(z)));
	
	(void) printf("a = %f\n",a);
	
	return 0;
}

program PROIZV_ZIFR;

var
intI,intC,N,Proizv,Code,tmpI:integer;
strA:string;

begin
randomize;
N:=random(110);
writeln('N randomly set in ',N);
intI:=0;
for intI:=10 to 999 do begin
str(intI,strA);
Proizv:=1;
for intC:=1 to length(strA) do begin
val(strA[intC],tmpI,Code);
Proizv:=Proizv*tmpI;
end;
if Proizv=N then break;
end;
if intI <> 999 then writeln('chislo(Q) = ',strA,' proizvedenie zifr = ',Proizv,' = ',N,'(N)')
else writeln('chislo proizvedenie zifr kotorogo = ',N,' ne naideno');
readln;
end.

N randomly set in 49
chislo(Q) = 77 proizvedenie zifr = 49 = 49(N)

N randomly set in 7
chislo(Q) = 17 proizvedenie zifr = 7 = 7(N)

N randomly set in 103
chislo proizvedenie zifr kotorogo = 103 ne naideno