Регистрация
platonogloblin
10.11.2022 20:55
Информатика
Есть ответ 👍

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

164
173
Посмотреть ответы 2

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

севга
севга
4,7(68 оценок)

Объяснение:

program Xxx;

const

  RndLimit = 10000;

var

  x : integer;

begin

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

  writeLn('Random X= ', x);

  WriteLn('Modifyed X=', (x mod 1000 mod 100 mod 10), (x mod 1000 mod 100 div 10) , (x mod 1000 div 100) , (x div 1000) );

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                                                                                                                          

10 lines compiled, 0.3 sec                                                                                                            

                                                       

Random X= 5488                                                                                                                        

Modifyed X=8845                                                                                                                        

                                                                                                                                     

                                                                                                                                     

...Program finished with exit code 0                                                                                                  

Press ENTER to exit console

kaukov03
kaukov03
4,4(31 оценок)
Var n,    i,  sum: longint; begin writeln('введите число'); readln(n); sum: =0; for i: =1 to n-1  do sum: = sum+i; writeln(sum); readln end.   выбирайте лучший ; )

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