Напишите программу которая вводит трехзначное число и ,,вырезает '' из него 1 и последнюю цифру

myloveislikeyou myloveislikeyou    3   03.08.2019 01:40    2

Ответы
tema10112009 tema10112009  30.09.2020 05:05
//PascalABC.NET
var
a:integer;
begin
readln(a);
writeln(a div 10 mod 10);
end.

//Для 4 значного
//PascalABC.NET
var
a:integer;
begin
readln(a);
writeln(a div 100 mod 10, a div 10 mod 10);
end.
ПОКАЗАТЬ ОТВЕТЫ
GrootShkolnik GrootShkolnik  30.09.2020 05:05
Program Project;
uses
  crt;
var
  a: byte;
begin
  clrscr;
  Write("Введите число ");
  Readln(a);
  Writeln("Полученные числа:",(a div 100)," ",(a mod 10));
  Readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика