Question

Cine poate sa ma ajute inca la o problema in limbajul Pascal,
Sa se scrie un program care afiseaza pe ecrannumerele naturale mai mici sau egale cu n si divizibile cu t, n,t sunt numere naturale, t mai mic sau egal cu n si numerele t si n se citesc de la tastatura.

Answer 1

o varianta

program zuly;
var t,n,i:longint;
begin
i:=1;
write('t=');readln(t);
write('n=');readln(n);
if t<=n then
begin
while(i <=n)do
begin
if ( i mod t)=0 then writeln(i);
inc (i);
end;
end
else writeln(' eroare t > n');
end.

rezultat afisat
t=7
n=100

7
14
21
28
35
42
49
56
63
70
77
84
91
98