Завдання №3. ( ) Напишіть програму для обчислення площі та периметру прямокутника за вхідними даними довжини і ширини прямокутника (довжина і ширина с дiйсними числами). На початку програми виведiть назву програми «Обчислення периметру та площі прямокутника».

Как-то так...

Program g;
Var
A, B : Integer;
N : Integer;
S : Integer;
z:array[0..16] of integer;
i : Integer;
v:integer;
Begin
A:=(-20);
B:=20 ;
N:=16 ;
For i := 1 To N Do
Begin
S := Trunc(Random(B-A)+A);
WriteLn (i:2,'-е случайное число:',S:4);
End;
begin
writeln('Индексы элементов кратных 3:');
for v:=0 to 16 do begin
z[v]:=random(40)-20;
if z[v] mod 3 = 0 then write(v, ' ')
end;
end;
End. 

бег-бог-лог-лаг-шаг

бант-кант-карт-кара-кора-коса

шар-бар-бам-бум-кум-куб

муха-мура-фура-фора-кора-корн-коан-клан-клон-слон

миг-маг-мак-бак-бек-век

Это вообщето физика

V= v1+v2

t=(V1*t1+V2*t2)/V

чтобы потушить 8 пожаров нужно 1600 литров воды.Желательно тушить по часовой стрелке!!

№1
игры 

Носок

лазурь

№2

x<5<6=6<7

var

   n : integer;

begin

   write('N=');

   readln(n);

   writeln(n mod 60);

end.

По пять цифр в ряду

n = 10: 

1   2  3  4  5

6   7  8  9 10 

11 12 13 14 15 

16 17 18 19 20

n = 2:

   1    10    11   100   101 

 110   111  1000  1001  1010

 1011  1100  1101  1110  1111 

10000 10001 10010 10011 10100

n = 3:

 1   2  10  11  12

 20  21  22 100 101

102 110 111 112 120

121 122 200 201 202

n=5:

 1  2  3  4 10

11 12 13 14 20

21 22 23 24 30

31 32 33 34 40

n=8:

 1  2  3  4  5

 6  7 10 11 12

13 14 15 16 17 

20 21 22 23 24

Python:

a=list(map(int,input().split()))

s=0

for i in a:

if i%3==0:

 s+=1

print(s)

Так как 155 мегабит это 19.4 мегабайт в секунду, значит чтобы узнать за 0.5 сек делим на 2 == 9.7 мегабайт