Определите является ли число полным кратным 5

var

  a: real;

begin

  write('введите число '); readln(a);

  if (frac(a) = 0) and( trunc(a) mod 5 = 0) then

      writeln('число ', a ,' кратно 5')

  else

      writeln('число ', a ,' некратно 5')

end.

 

1)устройство ввода это клавиатура и мышь - ввода информации на компьютер и контроль им; устройство вывода это, как я понял, принтер- он служит для вывода информации из компьютера в реал; память устройства это жёсткий диск - устройство для хранения памяти, так же есть оперативная память (озу), она отвечает за количество выделяемой памяти для использования определённого процесса (количество этой памяти ограничено, это количество зависит от самой озу). наименьшую плохо помню, но, вроде, 1.2 ghz. 2)при устройств ввода и вывода. 3)они находятся в цифровом виде (формате)

Const n=20; var a: array[1..n] of integer;     tmp,i,j,m: integer; begin { заполнение массива и вывод на экран }   for i: =1 to n do   begin       a[i]: =random(100);       write(a[i],' ');     end;     { преобразование массива}     m: = n div 2;   for i: =1 to m do   begin     tmp: =a[i];     a[i]: =a[2*i];     for j: =2*i-1 downto i+1 do a[j+1]: =a[j];       a[i+1]: =tmp;   end;   writeln;   writeln('преобразованный массив'); { вывод массива на экран }   for i: =1 to n do write(a[i],' '); end.