reikalinga pagalba su pascaliu

Sveiki

Padekite parašyti programa:

Klaviatūra įvedamas bet koks triženklis skaičius. Parašykite programą, kuri nustatytų ar gauta šio skaičiaus skaitmenų suma be liekanos dalijasi iš 5.

PVZ. 384/5 -> dalijasi

mano bandymas:

Program Dalijimasis;

var

a,b:Integer;

begin

Writeln('Iveskite trizenkli skaiciu');

Readln(b);

a := (b/5);

if a:integer then

Writeln('taip')

else

Writeln('ne');

end.

Ačiū

Skaičiaus skaičių suma :)

reikia naudot mod 5

P.S tavo programojo begalės klaidų. :)

nzn ar gerai veikia, bet va ant greicio parasiau:

program skaiciai;

var a,b,k:integer;

begin

writeln('Iveskite skaiciu');

readln(a);

k := a div 100 + a mod 10 + a div 10 mod 10;

if k mod 5 = 0 then writeln('taip')

else writeln('ne');

end.

j0vis nesupratau kam tu skaidei ta skaičiu.

program Bevardė4;
var sk:integer;
begin
 WriteLn('Iveskite trizenkli skaiciu');
 Readln(sk);
 if sk mod 5 = 0 then writeln('Puikiai issidalija')
 else('Skaičius issidalija su liekana');
 readln;
end.

j0vis - ačiū :) teisingai :)

j0vis nesupratau kam tu skaidei ta skaičiu.

program Bevardė4;
var sk:integer;
begin
 WriteLn('Iveskite trizenkli skaiciu');
 Readln(sk);
 if sk mod 5 = 0 then writeln('Puikiai issidalija')
 else('Skaičius issidalija su liekana');
 readln;
end.

kaip supratau jis nori skaitmenu sumos. 384 -> 3 + 8 + 4 = 15. 15 mod 5 = 0

Atsakiau? :)

Frankenstein, i sveikata. malonu praeitus metus prisimint :)

kaip supratau jis nori skaitmenu sumos. 384 -> 3 + 8 + 4 = 15. 15 mod 5 = 0

Atsakiau? :)

 

Frankenstein, i sveikata. malonu praeitus metus prisimint :)

Ai netaip salyga supratau :)