Найти все двузначные числа. в записи которых есть цифра 5(Через цикл с параметром)
Answers & Comments
TlknAnastasiya
Const n=15; var a:array[1..n]of integer; i,b:integer; begin for i:=1 to n do a[i]:=Random(100)-20; for i:=1 to n do write(a[i],' '); writeln; for i:=1 to n do begin if (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i] div 10=5) then write(a[i],' '); end; writeln; end.
Answers & Comments
var a:array[1..n]of integer;
i,b:integer;
begin
for i:=1 to n do a[i]:=Random(100)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do begin
if (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i] div 10=5) then
write(a[i],' ');
end;
writeln;
end.