Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
матвей100000001357
08.08.2020 17:56 •
Информатика
Решить в паскале. 1) в двузначное число вписать ноль в середину и получить трехзначное число 2)задано двузначное число. чему равна первая цифра числа?
Показать ответ
Ответ:
SergeyHodos
20.06.2020 06:09
Program dvyzna4;
var i:integer;
begin
repeat
writeln('Введите число='); readln(i);
until (i>=10) and (i<=99);
writeln('1-ая цифра=',i div 10);
writeln('Трехзначное=',i div 10,'0',i mod 10);
end.
0,0
(0 оценок)
Ответ:
Tori1111111
20.06.2020 06:09
1)
Var x:inreger;
Begin
readln(x);
x:=((x div 10)*100)+(x mod 10);
writeln(x);
End.
2)
Var x:integer;
Begin
readln(x);
x:=x div 10;
writeln(x);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
azot21
13.04.2023 14:06
Дан массив с(10). сформируйте из него массивы а(5) и в(5), предварительно определив их длину. в массив а включите элементы из массива с с четными индексами, а в в— с нечетными....
санду7
27.12.2022 17:38
119) укажите наименьшее трёхзначное натуральное число, при вводе которого эта программа напечатает сначала 2, потом – 9. var x, a, b: longint; begin readln(x); a : = 0; b : = 1;...
shum2
24.03.2023 05:35
Заполни пропуски в предложениях! литосфера состоит из отдельных малоподвижных плиты разъединены подвижными литосферные плиты медленно перемещаются по пластичному со в год.у этого...
565п
21.01.2020 23:58
Выведите три числа. если они могут быть длинами сторон прямоугольного треугольника выведите их в порядке возрастания и вычислите площадь полученного треугольника...
nadyushasukhan
23.09.2021 13:03
9класс. составьте алгоритм вычисления (блок-схема на pascal). a²+4 √a²+√4 y= ⁻⁻⁻⁻⁻⁻⁻ + ⁻⁻⁻⁻⁻⁻⁻⁻ 6 4...
охххмирон228
25.06.2022 11:36
Дано натуральное число n. если оно делится на 4, вывести на экран ответ n=4k ( где k соответствующее частное), если остаток от деления на 4 равен 1, n=4k+1, если остаток на 4 равен...
сергейщепетинов
09.02.2022 09:04
Пусть даны вещественные числа x^1, x^2, x^3, y^1, y^2, y^3 принадлежит ли начало координат треугольнику с вершинами (x^1,y^1) (x^2,y^2) (x^3, y^3)...
МиланаЖиза
27.02.2021 03:38
дано содержимое трëх ячеек памяти поменять местами содержимое ячеек по часовой стрелке информатика 8 класc...
angelinashushi
21.01.2020 17:51
ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ИНФА КТО ШАРИТ СЮЛА ИНЫА КТО ШАРИТ СЮДА ИНФА КТО ШАРИТ СЮДА ИНФА КТО ШАРИТ СЮДА СДЕЛАЙЬЕ ПО ПУТОНУ ...
Аленчік
07.07.2022 12:13
Нужно написать программу, которая выводит таблицу степеней двойки (от нулевой до десятой). На языке php...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i:integer;
begin
repeat
writeln('Введите число='); readln(i);
until (i>=10) and (i<=99);
writeln('1-ая цифра=',i div 10);
writeln('Трехзначное=',i div 10,'0',i mod 10);
end.
Var x:inreger;
Begin
readln(x);
x:=((x div 10)*100)+(x mod 10);
writeln(x);
End.
2)
Var x:integer;
Begin
readln(x);
x:=x div 10;
writeln(x);
End.