вывести на экран все двузначные числа которые заканчиваются на 1 (паскаль)
Срочно!!!!
program gg;
var:i,b,c:integer;
a:array [1..n] of integer;
begin
writeln('vvedite chisla');
readln(a);
for i:=1 to n do
if ((a[i] mod 10 = 1) and (a[i]<99) and (a[i]>10)) then
b:=a[i];
writeln(b);
end;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program gg;
var:i,b,c:integer;
a:array [1..n] of integer;
begin
writeln('vvedite chisla');
readln(a);
begin
for i:=1 to n do
begin
if ((a[i] mod 10 = 1) and (a[i]<99) and (a[i]>10)) then
b:=a[i];
writeln(b);
end;
end.