logo
Войти Регистрация Спроси ai-bota


manjester1
09.04.2022 07:11

Составить простую программу,которая определяет однозначное или многозначное число на языке pascal

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
15JVC15
15JVC15
09.09.2020 08:32
Емкость какого носителя информации наибольшая? 1)cd диск 2)dvd диск 3)жесткий диск 4) флешка...
Frezzen
Frezzen
08.12.2020 12:03
Дан массив из 25 целых чисел, полученных случайным образом в пределах от – 50 до 50. Заменить: 1) элементы, кратные 11, на последний элемент массива; 2) элементы, стоящие на чётных...
Alina12345611109
Alina12345611109
27.03.2020 15:18
Подскажите куда поступать если разбираюсь в компьютерах и играх.Я за компом с 6 лет и мне скоро надо поступать, мне ооочень нужна от знающих людей. Я не силён в математике и боюсь...
Sazon1000
Sazon1000
01.02.2021 03:12
Реши и выбери ответ. (FAT32)В Блокнот (Notepad) введён текст: вор1. Информационный объём текста равен: байта 2. Занимаемый объём на жёстком диске:...
89271870095
89271870095
07.06.2023 01:20
3. По каналу связи передаются сообщения, содержащие только буквы А, Б, В, Г, Д, Е. Для передачи используется неравномерный двоичный код, удовлетворяющий условию Фано; для букв...
Andreiuchenik
Andreiuchenik
24.04.2023 03:55
Решите две задачи ( даны ответы, постройте числовые оси, см. во вложении)​...
ivannaprokuror
ivannaprokuror
02.05.2020 01:45
Составьте программу, которая получает от пользователя трёхзначное число и выводит True, если сумма цифр числа -- чётное число и False в противном случае.Sample Input 1:617 Sample...
Tyyyooo
Tyyyooo
20.04.2021 09:04
Подсчитайте в переменной s сумму 15 первых чисел в последовательности 305/10; 296/10; 287/10; 278/10; 269/10 и так далее....
ZhoniLegend
ZhoniLegend
10.08.2021 21:02
с заданиемКакое количество страниц в тысячах будет найдено по за коты...
alexkiop76
alexkiop76
27.06.2021 10:58
Заполни пропуски в программе. Вывод на экран кубов чисел от 9до 6. var :integer; begin for m:= downto do writeln (m*m*m); readln; end....
Ответ:
susystgr
07.10.2020 02:28
Var x:integer;
begin
readln(x);
if (x div 10=0) then writeln('odnozn.')
else writeln('mnogozn.');
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота