Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
samal22
22.04.2023 04:29 •
Информатика
Впрограмме паскаль составить программу даны 2 числа . если числа больше 10,то уменьшить их в 10 раз , то есть оставить без изменений.
Показать ответ
Ответ:
Anonimnostya
05.10.2020 02:47
1. Если каждое число рассматриваем как самостоятельное
var
a,b:real;
begin
Write('Введите два числа через пробел: ');
Read(a,b);
if a>10 then a:=a/10;
if b>10 then b:=b/10;
Writeln(a,' ',b)
end.
2. Если оба числа рассматриваем совместно
var
a,b:real;
begin
Write('Введите два числа через пробел: ');
Read(a,b);
if (a>10) and (b>10) then begin a:=a/10; b:=b/10 end;
Writeln(a,' ',b)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
aantip
17.03.2021 00:05
Пусть для записи вещественного числа в компьютере выделяется под мантиссу 7 разрядов, под порядок со сдвигом также 7 разрядов. Старшая единица в мантиссу не пишется,...
latyshevavera2
08.01.2023 14:39
Совершенным называется число, равное сумме всех своих делителей, меньших его самого (6=1+2+3). напишите программу, которая вводит натуральное число n и определяет является...
holodovika
08.01.2023 14:39
Напишите программу на с++, которая вводит натуральное число n и выводит на экран все натуральные числы, не превосходящие n и делящуеся на каждую из своих цифр...
kornilovstas200
08.01.2023 14:39
Найти произведение 1 • 2 • 3 • • n в паскале, те а цикл...
жанара06
30.08.2020 19:36
1) сколько единиц в двоичной записи десятичного числа 120? 2) каково наименьшее число х, при котором высказывания (6х 36) (х + 2=2х) 3) скорость передачи данных через...
shamsutdinovaa3
09.10.2021 16:18
1.составить алгоритм и программу, вычисления площади и периметра прямоугольного треугольника, значения длин которого (a,b,c) в программе. площадь вычисляется по формуле:...
Neznaikakrasno
09.10.2021 16:18
Для узла с ip адресом 203.155.196.98 адрес сети равен 203.155.192.0...
КукуцапольОрегинал
07.04.2022 06:01
Одномерный целочисленный массив содержит 50 элементов ,задаваемых с датчика случайных чисел в интервале от 1 до 200 .используя цикл с параметром (for) подсчитать сумму...
katerina17054
23.12.2021 17:59
Составить программу. в текстовом файле дано произвольное сообщение. вычислить, какое количество информации (в битах) в нем содержится. для этого: • выяснить, в каком...
ПолинаПять
24.05.2022 22:40
Дослідіть, використовуючи дані сайтів з відомостями про сучасні комп ютерні пристрої, наприклад hotline.ua, значення властивостей оперативної пам яті з максимальною...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a,b:real;
begin
Write('Введите два числа через пробел: ');
Read(a,b);
if a>10 then a:=a/10;
if b>10 then b:=b/10;
Writeln(a,' ',b)
end.
2. Если оба числа рассматриваем совместно
var
a,b:real;
begin
Write('Введите два числа через пробел: ');
Read(a,b);
if (a>10) and (b>10) then begin a:=a/10; b:=b/10 end;
Writeln(a,' ',b)
end.