Не у меня) какой это класс
Uses crt;
var
n,a,b,c,m:integer;
begin
clrscr;
write('Vvesti 3-x znachnoe chislo ');
readln(n);
c:=n mod 10;
a:=n div 100;
n:=n div 10;
b:=n mod 10;
writeln('cifri chisla ',a:3,b:3,c:3);
write('vvesti cifru ');
readln(m);
if (m=a) or (m=b) or (m=c) then writeln('YES') else writeln('NO');
writeln('end programm ');
readkey;
end.
Program pr1;
uses crt;
var
a,r:real;
begin
clrscr;
write('Vvesti storonu kvadrata A ');
readln(a);
write('Vvesti radius kruga R ');
readln(r);
if 2*r =a then writeln('krug vpisan v kvadrat') else
if abs(a*sqrt(2) - 2*r)<=0.01 then writeln('kvadrat vpisan v krug')
else writeln(' ne vpisivajutsya');
writeln('end programm ');
readkey;
<span>end.</span>
Так что ли?вот примеры умножения чисел больше 80
90*100=9000
85*200=17000
99*110=10890
80*80=6400
88*99=8712
101*102=10302
110*110=12100
90*90=8100
PascalABC.NET 3.3
begin
var N := ReadInteger('Введите N:');
Println('Произведение первых N нечётных чисел равно',
1.Step(2).Take(N).Aggregate(BigInteger(1), (p, x) -> p * x));
Println('Квадраты первых N натуральных чисел:');
1.To(N).Select(x -> x * x).Print;
end.
Пример работы программы:
Введите N: 10
Произведение первых N нечётных чисел равно 654729075
Квадраты первых N натуральных чисел:
1 4 9 16 25 36 49 64 81 100
0,041696 1 мб 1000кб . 1000мб 1гб