Целое деление на 3

Посмотреть архив целиком
program zeloe_delenie;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a:integer;
begin
writeln('Vvedite chislo');
readln(a);
if a mod 3=0 then writeln ('vvedennoe chislo delitsia na 3 bez ostatka')
else writeln ('Vvedennoe chislo delitsia na 3 s ostatkom');
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.