программа на паскале
var a: array [1..21,1..2] of real;
i:integer;
begin
a[1,1]:=0.0 ;
for i:=2 to 21 do
a[i,1]:=a[i-1,1]+5;
for i:=1 to 21 do
a[i,2]:=a[i,1]*1.8+32.0;
for i:=1 to 21 do
writeln (a[i,1]:3:0,' celcia = ',a[i,2]:3:0,' farrengeit');
readln;
end.
Процент представь в виде десятичной дроби и умножь на 35000 кг
1:=760
2:=7B,1C6,11D0,
3:=Не смог
4:=1101111000010110,1110000010100011,10010001110111100
5:=5D,6679
===== PascalABC.NET =====
procedure pK(n: integer; var k: int64);
begin
k := 1;
for var i := 2 to n do
k *= i
end;
function fK(n: integer): int64;
begin
Result := 1;
for var i := 2 to n do
Result *= i
end;
begin
var n := ReadInteger('n =');
var r: int64;
pK(n, r);
Println('Процедура:', r);
Println('Функция:', fK(n))
end.
Вычисления производятся в столбик
1 0 1 0 1
0 0 1 1 1
1 1 1 0