Напишите программу, которая генерирует случайное четырехзначное число и находит сумму его цифр В ПАСКАЛЕ.

Объяснение:

program Randomizer;

const

   RndLimit = 10000;

var

   x, SumX : integer;

begin

 SumX := 0;

 // Коммент: случайное число в паскале всегда генерируется от 0 до заданного,

 // но нам необходимо от 1000, поэтому в цикле repeat...until оно будет генерироваться

 // до тех пор, пока не станет > 999

 Repeat x := Random(RndLimit) until x > 999;

 writeln ('Random X= ', x);

 SumX := SumX + (x div 1000) + (x mod 1000 div 100) + (x mod 1000 mod 100 div 10) + (x mod 1000 mod 100 mod 10);

 writeln ('Sum = ', SumX);

end.

================ запускаем===================

Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64                                                                        

Copyright (c) 1993-2012 by Florian Klaempfl and others                                                                              

Target OS: Linux for x86-64                                                                                                          

Compiling main.pas                                                                                                                  

Linking a.out                                                                                                                        

21 lines compiled, 0.1 sec                                                                                                          

Random X= 5488                                                                                                                      

Sum = 25  

телефон      |         зонтик

наушник       |       спица

корпус         |       стержень

диск             |       купол

микрофон   |       рукоятка

провод         |       рубка

1л=1дм^3

8л = 0.008 куб метров

5.68кг=0.00568 тон

плотность

0.00568/0.008=0.71 тон на кубометр

500*0.71 = 355 тон влезет в цистерну