Предмет: Информатика,
автор: taranka1001
Напишите программу,которая вводит четырехзначное число и вырезает из него вторую цифру(на языке паскаль)
Ответы
Автор ответа:
0
program chisla;
var a:integer;
begin
Write('Введите четырехзначное число: ');
read(a);
if (a<=9999) and (a>=1000) then
begin
Writeln('Вторая цифра ',a div 100 mod 10);
end
else
Writeln('Это не четырехзначное число');
end.
var a:integer;
begin
Write('Введите четырехзначное число: ');
read(a);
if (a<=9999) and (a>=1000) then
begin
Writeln('Вторая цифра ',a div 100 mod 10);
end
else
Writeln('Это не четырехзначное число');
end.
Похожие вопросы
Предмет: Русский язык,
автор: minirayru
Предмет: Қазақ тiлi,
автор: aiza27131
Предмет: Информатика,
автор: fortnighter228
Предмет: Геометрия,
автор: CloserToTheEdge
Предмет: Алгебра,
автор: Аноним