tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу которая
Напишите программу которая вводит трехзначное число и ,,вырезает '' из него 1 и последнюю цифру
myloveislikeyou
3 03.08.2019 01:40
2
Ответы
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
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Gear228man
06.05.2020 08:46
Объясните Зачем в 3D программе используется ...
Nikcdi
15.01.2021 12:06
Як завантажити Microsoft Excel...
Exzify
13.12.2019 20:51
Написать программу вычисления функции y=x^2+√x/15 если x=1,5...
AmyDay123
13.12.2019 21:00
[50 б.] нужно выполнить граф.1 фотка - матрица инцидентности.2 фотка - матрица смежности.p.s. не используя онлайн сервисы! ...
MaxSorv
13.12.2019 21:03
Яне понимаю свою ошибку #генератор числа в игровой форме. import random attempt=0 print( ! как тебя зовут? ) name=input() print(name + - прекрасное имя! ) number = random.randint(1,10)...
Оpiggyugrs
13.12.2019 21:07
Даны сторона квадрата и радиус окружности.верно ли что круг вписан в квадрат? ...
Ваняяш
28.08.2019 23:00
Сколько единиц в двоичной записи шестнадцатеричного числа 10fa16?...
Юлия250501
31.07.2019 10:30
Составьте программу заполнения массива из 100 целых чисел случайными числами от 1 до 20 и найти сумму четных чисел...
Lovetoo
31.07.2019 10:30
Перевод чисел в позиционных системах счисления из 10 системы счисления в 2,8,16...
dkuchanov1352
31.07.2019 10:30
Вычислить 20! + 30! используя паскаль. желательно показывая формулу. ато подзабыл тему...
Популярные вопросы
Характеристика цыгонка из произведения „Детство” М.ГорькогоПо этому плану...
2
Проанализируй утверждения об алтайской языковой семье, определи верные. Верных...
3
Тутутутутутуттутутутутут мышка сосиска...
2
Реши задачу арифметическим и алгебраическим) на старте скорость первого бегуна...
3
6. Радиус ОА окружности равен 2. Через его середину E проведенахорда CD . Найдите...
3
Тапсырма. Ғ. Мұстафин туралы кластер құраңыз. ...
1
2) 1,7 |3 – x l 4;3) 2,3 |x – 4( 6;...
2
6-тапсырма. Мәтінді оқып, шығарманың композициялық құрылымын анықта. 1. Оқиғаның...
3
Анализ стихотворения ТЫ НЕ СЫРОТА...
1
Тапсырма Мәтіннің оқиға желісі бойынша кіріспе, негізгі және қорытынды бөлімдердіқамтитын...
1
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.
uses
crt;
var
a: byte;
begin
clrscr;
Write("Введите число ");
Readln(a);
Writeln("Полученные числа:",(a div 100)," ",(a mod 10));
Readln;
end.