Забравена парола

Език

Български    Английски

Реклами




Съобщи за грешка !
Добави търсачка

Валиден XHTML 1.1 Валиден CSS 2.1
Powered by PHP Powered by MySQL
Pascal емулатор
1 потребител(и) online
Контрол на шрифта Принтирай  Текущ език: Pascal

Упражнения://Редене на код


За да решите задачата е нужно чрез мишката да разместите кода, докато получите работеща програма.

Условие на задачата:
Да се състави програма, която определя броя на трицифрените естествени числа, сумата от цифрите на които е равна на дадено естествено число S (S се задава от клавиатурата и е между 1 и 27).


  • for k := 0 to 9 do
  • for i := 1 to 9 do
  • until ( S >= 1 ) and ( S <= 27 ) ;
  • begin
  • end.
  • write ( ' въведете число за сравнение (1..27): ' ) ;
  • if ( i + j + k ) = S then br := br + 1 ;
  • readln ;
  • br : integer ;
  • var i, j, k : 0 .. 9 ;
  • writeln ( ' Броят на числата (100..999), сбора на чиито цифри е равен на ' , S, ' е ', br ) ;
  • repeat
  • S : 1 .. 27 ;
  • readln ( S );
  • br := 0 ;
  • for j := 0 to 9 do