Регистрация
мак122
22.09.2021 12:11
Информатика
Есть ответ 👍

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

108
278
Посмотреть ответы 2

Ответы на вопрос:

рамазан115
рамазан115
4,8(6 оценок)

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. и так далее как вы знаете там проверка и дальше точно так же

olgasuponeva
olgasuponeva
4,7(81 оценок)
Компьютер (веб-камера и сканер могут "видеть" форму предмета) и человек.

Популярно: Информатика