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

Program l; uses crt; var x: integer; begin write('   x=');   readln(x); if (x mod 3)=0 then   writeln('x=',x,' делется нацело на 3')                               else   writeln('x=',x,' не делется нацело на 3') end.

Program divisors; //вообще ничего не делает(аля название программы) var num,divisor,i,sum: longint; //описываем переменные типа longintbegin//начало программы write('vvedite chislo: '); //выводим текст readln(num); //считываем число write('vvedite delitel: '); //выводим текст read(divisor); //считываем заданное число(будем использовать при поиске делителей больше заданного) sum: =0; //зануляем переменную(изначально равна нулю, но на всякий случай ; ) от с++)    for i: =1 to num do //цикл от 1 до числа(можно оптимизировать идя до корня из num)    begin//начало цикла      if num mod i = 0 then//если на очередном шаге остаток от деления числа на i равен нулю      begin//начало условия        write(i,' '); //выводим делитель        sum: =sum+i; //суммируем      end; //конец условия    end; //конец цикла    writeln(); //переходим на следующую строку    writeln(sum); //выводим сумму    for i: =1 to num do//аналогично выше    begin      if (num mod i = 0) and (i mod 2 = 0) then // если число делитель и делится на 2      begin        write(i,' ');       end;     end;     writeln();     for i: =1 to num do    begin    if (num mod i = 0) and (i mod 2 = 1) then // не делится на 2    begin        write(i,' ');     end;     end;     writeln();     for i: =1 to num do    begin    if (num mod i = 0) and (i> divisor) then // больше заданного числа    begin        write(i,' ');     end;     end; end.//конец программы 

Program pr1; uses crt; var mas: array[1..20] of integer; i,v,a,k,x: integer; begin clrscr; writeln('vvedite a'); readln(a); writeln('vvedite k'); readln(k); for i: =1 to 20 do begin writeln('vvedite ',i,'-ji simvol'); readln(mas[i]); end; v: =0; x: =0; for i: =1 to 20 do begin if mas[i] mod 2< > 0 then v: =v+mas[i]; if mas[i]> a then writeln('> a ',i); if (mas[i] mod k=0) and (mas[i]> 0) then x: =x+1; end; writeln('summa nechetnih - ', v ); if x> 0 then writeln('true') else writeln('false'); end.