@Dawgora vari man atkal palīdzēt ar paskal?
Programmēšana
- 0
Ķipa man ir tādi uzdevumi...
1. Programma pieprasa veselu skaitli x un paziņo, kāds ir šis skaitlis: dalās vai nedalās ar 5
2. Pieprasīt trīsciparu skaitli un aprēķināt otro un trešo ciparu starpību. 
0Program uzdevums;
var viens: integer;
divi: string;
tris:double;
begin
writeln('ievadiet skaitli: ');
repeat
readln(viens);
if(viens<0) then viens:=viens*(-1);
tris:=viens;
until (tris/100>=1) and (tris/100<10);
str(viens,divi);
writeln(divi[2],'-',divi[3],'= ',ord(divi[2])-ord(divi[3]));
readln;
end.
Pēc loģikas šai programmai ir jāstrādā. ja dalās arī 1000- tad vot ir kā ir. jo dažreiz viņš kompilatorā ar free pascal dala tā, ja 1000/100 nav 10, bet 9.99999993. or smth.
