Răspuns:
1
a) (17 div 17) mod 2=1 mod 2=5
b) 200 mod 25=0
c) True
d) False
2
Inceput
Citeste a;
Citeste b;
Calculeaza p:=a*b;
Afiseaza rezultatul p;
Sfarsit.
3
Inceput
Citeste n;
Daca n mod 6 =0 atunci afiseaza ura
altfel afiseaza gresit;
Sfarsit.
4
Date de intrare ( a,b)
Date intermediare ( c,d) (integer) : )
a=8 si b=8 va afisa 0
a=8 si b=4 va afisa 6
5
var
a, n, i: integer;
begin
read(n); (citeste n)
while n <> 0 do (in timp ce n diferit de 0 executa)
begin
readln(n); (citeste n);
if (n mod 2 = 0) then ( daca n impartit la 2 da rest 0 atunci)
inc(a); ( numara )
end;
write(a); ( afiseaza rezultatul)
end.
6
var
n, m, p, k: integer;
begin
write('n=');
read(n); ( citeste n);
m := n; ( valoare lui n transfero in m)
k := 0;
while m <> 0 do ( in timp ce m diferit de 0 executa)
begin
p := m mod 10; ( restul impartirii la 10)
K := k + 1; ( calculeaza nr de cife)
m := m div 10; ( catul impartirii la 10);
end;
writeln('k=', k); ( rezultatul);
end.
7
Palindrom reprezinta un sir de caractere care se citeste exact in ambele parti de la stanga la dreapta si ramane neschimbat,ca exemplu (lupul ,apa,cuc,radar ...)
