Question

In PASCAL dau COROANA! Sa se afle numerele de doua cifre care impartite la 15 dau restul egal cu patratul citului.

Answer 1

Var x:integer;
begin
 
writeln('x='); readln(x);

while(9<x) and (x<91) do
begin;
if( x mod 15=sqr(x div 15)) THEN
writeln('Numarul indeplineste conditia')
else writeln('Numarul nu indeplineste conditia');
end;
readln;
end.