Текстовый хостинг - Получите доступ к сохраненным данным из любой точки мира через Интернет
avatar
Whosts.ru

Гость 110 12th Dec, 2019

                                           
                         program ivan_vasilievich;
uses crt;
var n, k:integer;
begin
writeln('Введите своё число');
readln(n);
If (n<10) or (n>99) then
begin
writeln('Число не двухзначное');
readln(k);
If n mod k=0 then
begin
writeln('Число кратно ',k);
end;
If n mod k<>0 then
begin
writeln('Число не кратно',k);
end;
end
else
begin
writeln('Число двухзначное');
readln(k);
If n mod k=0 then
begin
writeln('Число кратно ',k);
end;
If n mod k<>0 then
begin
writeln('Число не кратно ',k);
end;
end;
readln;end.
                      
                                       
Поделись этим текстом, скопируй эту ссылку и отправь друзьям
RAW Paste Data
Последние Тексты