1
2
3
4
10
11
12
13
14
20
21
22
23
24
30
31
32
33
34
40
var
mas:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
mas[i]:=i*7;
write (i,'*',7,'=',mas[i]);
writeln;
end;
end.
Листинг программы искриншот результата в приложениях.
Var a,b,c,e:longint;
begin
writeln('введите число');
readln(a);
for b:=a downto 0 do begin
c:= a mod 10;
a:=a div 10;
e:=e+c;
end;
writeln('сумма цифр числа => ',e);
end.
Const n=3;{можно любое число}
var a:array [1..n] of Integer;x,q,i:Integer;b,c,z:Real;
begin
for i:=1 to n do
begin
Write('a[',i,']=');
ReadLn(a[i]);
end;
x:=a[1];
for i:=2 to n do
if x<a[i]
then x:=a[i];
c:=x;
Writeln(c:3:2,'-Naibolshoe');
q:=a[1];
for i:=2 to n do
if q>a[i]
then q:=a[i];
z:=q;
Writeln(z:3:2,'-Naimenshoe');
b:=(x+q)/2;
WriteLn(b:3:2,'-seredne arifmitichne') ;
readln;
end.