Question

Разработать программу которая переводит значения величин заданной в мм, см, дм, км. Значения в метрах

Answer 1

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

Uses

CRT;

var

i,n:integer;

fact:longint;

begin

readln(n);

if n<0 then writeln('Г”Г*êòîðèГ*Г«Г* îòðèöГ*òåëüГ*îãî Г·ГЁГ±Г«Г* Г*ГҐГІ!!')

else if n=0 then writeln('Г”Г*êòîðèГ*Г«:=',1)

else if n>0 then

begin

fact:=1;

for i:=1 to n do

begin

fact:=fact*i;

end;

writeln('Г”Г*êòîðèГ*Г« ',n,':=',fact);

end;

readkey

end. и так далее как вы знаете там проверка и дальше точно так же