Question

in Pascal :
Sa se citeasca un numar intreg pozitiv, daca numarul este divizibil cu 7 sa se afiseze patratul lui. Daca nr. nu este divizibil cu 7 sa se citeasca inca un nr intreg si sa se afiseze produsul lor.​

Answer 1

Răspuns:

program p1;

var i,k:integer;

begin

writeln('Dati un numar');

readln(i);

if i div 7=0 then writeln(i*i)

else begin writeln('Dati alt numar');readln(k);writeln(i*k);end;

end.