Проверьте, делится ли выбранное число на 5, на 11 или 13 нужно сделать в pascal abc

Var a: integer; begin writeln('введите число'); readln(a); if (a mod 5=0) then writeln('число ',a,' делится на число 5') else writeln('число ',a,' не делится на число 5'); if (a mod 11=0) then writeln('число ',a,' делится на число 11') else writeln('число ',a,' не делится на число 11'); if (a mod 13=0) then writeln('число ',a,' делится на число 13') else writeln('число ',a,' не делится на число 13'); end.

самотестирование компьютера

                |

первый этап - загрузка специальной программы в микросхеме bios для поиска загрузчика операционной системы

                |

второй этап - программа загрузчик загружается в оперативную память для передачи работой комп.

                |

программа ищет файлы операционной системы и загружает их в оперативную память в качестве программных модулей

       

 

при включении комп. ос загружается в оп раньше остальных программ

 

 

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.