ANTICHAT — форум по информационной безопасности, OSINT и технологиям

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.

program SUMMA_I_PROIZVEDENIE;

var
intI,tmpI,Summa,Code,Proizv:integer;
strA:string;

begin
writeln('Vvedite chislo');
readln(intI);
str(intI,strA);
Summa:=0;
Proizv:=1;
for intI:=1 to length(strA) do begin
val(strA[intI],tmpI,Code);
Summa:=Summa+tmpI;
Proizv:=Proizv*tmpI;
end;
writeln('Summa chisel chisla ',strA,' = ',Summa);
writeln('Proizvedenie chisel chisla ',strA,' = ',Proizv);
readln;
end.

Vvedite chislo
362
Summa chisel chisla 362 = 11
Proizvedenie chisel chisla 362 = 36

Vvedite chislo
4542
Summa chisel chisla 4542 = 15
Proizvedenie chisel chisla 4542 = 160

program Nom_Stolet;

var
intI,Nomer_Stoletia:integer;

begin
Nomer_Stoletia:=1;
writeln('Vvedite god');
readln(intI);
while intI-100 > 0 do begin
Nomer_Stoletia:=Nomer_Stoletia+1;
intI:=intI-100;
end;
writeln('Nomer stoletia = ',Nomer_Stoletia);
readln;
end.

Vvedite god
5000
Nomer stoletia = 50

Vvedite god
5001
Nomer stoletia = 51

program VVOD_CHISLA;
var
intI:array [1..5] of longint;
intA,intB,tmp:integer;
Rezultir:longint;

begin
Rezultir:=0;
for intA:=1 to 5 do begin
writeln('Vvedite zifru nomer ',intA);
readln(intI[intA]);
tmp:=1;
for intB:=1 to 5-intA do tmp:=tmp*10;
Rezultir:=Rezultir+intI[intA]*tmp;
end;
writeln('Eto chislo = ',Rezultir);
writeln('Korenb iz chisla ',Rezultir,' = ',sqrt(Rezultir):6:4);
writeln('Kvadrat chisla ',Rezultir,' = ',sqr(Rezultir));
readln;
end.

Vvedite zifru nomer 1
0
Vvedite zifru nomer 2
0
Vvedite zifru nomer 3
0
Vvedite zifru nomer 4
2
Vvedite zifru nomer 5
5
Eto chislo = 25
Korenb iz chisla 25 = 5.0000
Kvadrat chisla 25 = 625

Vvedite zifru nomer 1
1
Vvedite zifru nomer 2
6
Vvedite zifru nomer 3
3
Vvedite zifru nomer 4
8
Vvedite zifru nomer 5
4
Eto chislo = 16384
Korenb iz chisla 16384 = 128.0000
Kvadrat chisla 16384 = 268435456

Vvedite zifru nomer 1
1
Vvedite zifru nomer 2
2
Vvedite zifru nomer 3
3
Vvedite zifru nomer 4
4
Vvedite zifru nomer 5
5
Eto chislo = 12345
Korenb iz chisla 12345 = 111.1081
Kvadrat chisla 12345 = 152399025

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