Programalama > PASCAL

Etiketler: tam, kat......

Ort. 0
Puan ver:
program Tam_Kat_Bulma;

uses
  Forms;

{$R *.RES}
var
a,b:byte;



begin
  Application.Initialize;
  Application.Run;

write('Birer boslukla iki sayi giriniz=');
readln(a,b);
if a/b=trunc(a/b) then
begin
write('A B nin tam kati dir');
readln;
end
else if b/a=trunc(b/a)then
begin
write('B A nin tam kati dir');
readln
end
else
write('A B nin tam kati degildir');
end.


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.