понедельник, 19 декабря 2011 г.

Модуль 3 задание 6 




program happiness;
uses crt;
var i,j,k,x,y,z: integer;
    happytickets: longint;
    begin
    clrscr;
         happytickets:= -1; {считаем, что билета 000000 не существует}

         for i:= 0 to 9 do
          for j:= 0 to 9 do
           for k:= 0 to 9 do
            for x:= 0 to 9 do
             for y:= 0 to 9 do
              for z:= 0 to 9 do

               if i+j+k = x+y+z then inc(happytickets);

    Write('Счастливых билетов: ',happytickets);
    Writeln(' (это ',10000/happytickets:3:6,'% от общего числа всех билетов)');
    Writeln;
    Readln;
end.




program happiness- название программы( имя)
 uses -зарезервированное слово, после которого, как правило, 
перечисляется список подключаемых модулей, библиотек.
crt- стандартный модуль crt
var i,j,k,x,y,z- переменные
integer-тип данных.Диапозон -32768..32767.Формат Знаковый.
longint- тип данных. Диапозон −2147483648..2147483647. Формат знаковый
begin-end.- тело программы( начало-конец)
for-to-do - итерационный цикл(for-оператор цикла, to-служебное слово 
в операторе цикла do-служебное слово
if-then - условный оператор ( если-то)
inc(happytickets)-операция их можно использовать 
в операторах case, for(как счетчик цикла), 
как границы массивов,для задания элементов множеств.
Write-директив
Writeln- вывод( процедура вывода данных на экран)
Readln - ввод ( процедура чтения текста с клавиатуры)
Автор: на

Комментариев нет:

Отправить комментарий

Подписаться на: Комментарии к сообщению (Atom)