Пожалуйста, помогите!!!
Составить программу на языке Паскаль, которая запрашивает у пользователя некоторое количество трехзначных чисел и выводит на экран цифру, находящуюся в середине каждого полученного числа.
Не в коем случае не используй их: last, Const, count. Делай обыкновенным способом.
Ответы
Ответ дал:
0
var i, x, y: integer;
a: array [1..255] of integer;
function sr(i: integer):string;
begin
sr:=inttostr(i)[2];
end;
begin
writeln('Vvedite kol-vo chisel');
read(x);
for i:=1 to x do read(a[i]);
writeln();
for i:=1 to x do writeln(sr(a[i]));
end.
a: array [1..255] of integer;
function sr(i: integer):string;
begin
sr:=inttostr(i)[2];
end;
begin
writeln('Vvedite kol-vo chisel');
read(x);
for i:=1 to x do read(a[i]);
writeln();
for i:=1 to x do writeln(sr(a[i]));
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад