tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано натурально число. определить
Дано натурально число. определить произведение 2 и 3 цифры
Alina29052006
2 15.09.2019 14:20
0
Ответы
tim27012003
07.10.2020 17:27
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write('Введите число: ');
var a:=ReadInteger().ToString();
write('произведение 2 и 3 цифры: ',a[2].ToDigit()*a[3].ToDigit());
end.
ПОКАЗАТЬ ОТВЕТЫ
Vitadem1
07.10.2020 17:27
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n =') div 10;
Writeln(n mod 10 * (n div 10 mod 10));
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
NoraDun
11.12.2019 11:10
Excel : пусть имеется возможность инвестировать средства в течение пяти лет ежегодно по 100 тысяч рублей под 15% годовых. какая сумма окажется на счете в конце пятого...
mi1980
11.12.2019 11:05
Как в excel сделать формулу cotan(x) ?...
rezeda231281
27.01.2021 11:27
Задания №1. Напишите определение. Интерфейс – Задания №2. Заполните пропушенное в таблице.Задания №3. Напишите математическое выражение в Python.Математическое выражениеЗапись...
Реноша
27.01.2021 11:27
Придумайте и обоснуйте ОДИН пример, в котором СОЧЕТАЮТСЯ свойства такие свойства информации, как актуальность и репрезентативность....
daryatitova1
19.06.2019 05:10
Пропускная некоторого канала связи равна 128000 бит/с. сколько времени займет передача по этому каналу файла объёмом 500 кб?...
CoJlne4Hblu
19.06.2019 05:20
1.чем характеризуются понятия? 2.что такое содержание понятия? 3.раскройте содержание(перечислите основные признаки) понятий клавиатура ,редактирование текста ,...
никита3491
05.08.2019 03:00
Запишите предложения астана столица казахстана найдите его информационный объем переведите в биты...
Мари7890
05.08.2019 03:00
Как набрать на компьютере текст информационной объем которого равнялся бы в 200 байт...
zhalamine
13.07.2019 15:30
Снеизвестной планеты пришло сообщение,записанное с всех символов алфавита. ghjad? hjkg! a сколько информации оно несёт?...
robot1212
13.07.2019 15:30
Написать программу на паскале : ) с процедуры задать матрицу a(n,m) датчиком случайных чисел. определить номера строки и столбца максимального элемента массива....
Популярные вопросы
Периметр прямокутника становить 44 см. Визнач, які його сторони,...
1
ЧЕРЕЗ 5 МИНУТ НУЖНО УЖЕ ОТПРАВИТЬ Запишите предложение, расставьте...
3
До ть будь ласкс.Від тривалого кип ятіння води на стінках чайника...
1
Человеку необходимо поднять с рычага плиту массой 180 кг. Большее...
1
Как называются линии разметки при челночном беге...
1
Удельная теплоемкость льда равна 2100 Дж/кг 0С, железа – 460...
3
было нежелательно соглашение между Эшим-ханом и Кокум-бием?...
2
Задание по музыке сделать задание....
3
Сколько раз будет выполнен цикл? с решением Б)for i : = 10 to...
1
Угол boc-угол aoc=18 градусов, угол aob=70 градусов. Найти: угол...
3
//Версия 3.3, сборка 1611
begin
write('Введите число: ');
var a:=ReadInteger().ToString();
write('произведение 2 и 3 цифры: ',a[2].ToDigit()*a[3].ToDigit());
end.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n =') div 10;
Writeln(n mod 10 * (n div 10 mod 10));
end.