1) scrieți un program care verifică dacă numărul este egal sau impar
2) Scrieți un program care verifică dacă intregul introdus pe tastatură este împărțit la 3
3) scrieți un program care determină dacă biletul este "norocos" sau nu, un bilet de 6 cifre. Biletul este fericit dacă suma primelor două cifre este egală cu suma ultimelor trei cifre
5) scrie un program care verifică dacă întregul introdus pe tastatură este împărțit la șase
6) scrieți un program care determină dacă numărul b este împărțit la un număr întreg.
7) cu un număr întreg de 4 cifre. Schimbați numerele din acest număr în locuri diferite, afișați numărul inițial și modificat
Răspunsuri și explicații
1)))))))))
program z;
var
i. întreg;
începe
Writeln ("Introduceți numărul"); Readln (i);
dacă i mod 2 = 0
atunci
Writeln ("Evening Number")
altfel
Writeln ("Numărul nu este egal cu mâna");
readln;
end.
2))))))))))))
program z;
var
i. întreg;
începe
Writeln ("Introduceți numărul"); Readln (i);
dacă i mod 3 = 0
atunci
Writeln ('Numărul este împărțit la 3')
altfel
Writeln ("Numărul nu este divizibil cu 3");
readln;
end.
3))))))
program z;
var
i: array [1..6] de byte;
x: octet;
începe
pentru x: = 1 la 6 nu
începe
Writeln ('Enter', x, 'cifră de 6');
Citiți (i [x]);
se încheie;
dacă (i [1] + i [2]) = (i [4] + i [5] + i [6]
atunci
Writeln ("Happy Ticket")
altfel
Writeln ("Biletul nu este fericit");
readln;
end.
5)))
program z;
var
i. întreg;
începe
Writeln ("Introduceți numărul"); Readln (i);
dacă i mod 6 = 0
atunci
Writeln ("Numărul este împărțit la 6")
altfel
Writeln ("Numărul nu este divizibil cu 6");
readln;
end.
6)))))
program z;
var
a, b: întreg;
începe
Writeln ("Introduceți numărul A"); Citiți (a);
Writeln ('Introduceți numărul B'); Citiți (b);
dacă b mod a = 0
apoi Writeln ("Numărul A este împărțit la întregul număr B")
altceva Writeln ("Numărul A nu este divizibil cu întregul număr B");
readln;
end.
Această întrebare este arhivă. Adăugați o nouă întrebare
Îndoială în răspunsul?
Aflați mai multe despre Cunoaștere!
Aveți o problemă cu temele?Cereți ajutor!
80% din răspunsuri sosesc în 10 minute
Noi nu numai că răspundem, ci explicăm
Articole similare
Trimiteți-le prietenilor: