A-длина, b-ширина
var
a,b,x: real;
begin
readln(a,b);
if a>b then x:=a*b
else x:=2*(a+b);
writeln(x);
end.
program summa;
var
sum:BigInteger;
i,n:integer;
begin
write ('n = ');
readln(n);
sum:=0;
i:=1;
while i<= n do begin
sum:=sum+i;
i:=i+1;
end;
writeln('Sum = ',sum);
end.
================================
program krugi;
uses graphabc;
var
x,y,r:integer;
begin
setBrushColor(clGreen);
x:=22; y:=22; r:=20;
while x<660 do begin
circle(x,y,r);
x:=x+40;
end;
end.
==============================
program factorial;
var
pr:BigInteger;
i,n:integer;
begin
write ('n = ');
readln(n);
pr:=1;
i:=1;
while i<= n do begin
pr:=pr*i;
i:=i+1;
end;
writeln('Факториал числа n! = ',pr);
end.
<span>Высылаю 2 Excel графика.</span>
Лист защищен без пароля, чтобы не повредить формулы.
Формулы можно увидеть в строке формул.
Задания переключаются внизу по названиям ярлычков 1 и 2
<span>Параметр b вводится вверху в выделенную клетку</span>
<span>Позже, если будет время прикреплю базу <span>Access
</span></span>
Uses crt;
var a:integer;
begin
a:=10000;
repeat
if (a mod 133=125) and (a mod 134=111) then writeln(a);
a:=a+1;
until a>99999;
end.
100011(2)=35 (10)
100011(2)=43(8)
100011(2)=23(16)
<span>101001011(2)=513(8)</span>
<span><span>101001011(2)=331(10)</span></span>
<span><span><span>101001011(2)=14B (16)</span></span></span>
