Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
milenavoskanya
22.03.2023 12:31 •
Информатика
Склавиатуры вводится число а,в, и целое число х. если х=0 а,в-real найти разность а-в, 1-а*в, 2-х: integer a: в, в противном случае найти сумму.
Показать ответ
Ответ:
твоёсолнце7
07.10.2020 17:04
Program Numbers;
uses crt;
var x:integer;
a,b:real;
if (x=0) and (frac (a)>0) and (frac(b)>0) then
writeln ("Result: ",a-b, ' ', 1-a*b,' ', 2-a/b)
else
writeln ("Summa ",a+b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Gbr330
06.04.2023 17:15
Определите значение b после выполнения алгоритма: а:= 8b:= 2a:= 14 + a*bb:= b + a/3ответ: ...
danadv
24.05.2022 06:17
дано целое число N( 1) . Найти наибольшее целое число К,при котором выполняется неравенство 2^К N. Решить задачу используя циклическую конструкцию while ,на питон . ...
nastuaserova
23.02.2023 13:11
2. Составь предложения с найденным словом: {Выход из лабиринта}...
Мишa1
26.01.2021 05:53
1. Постройте таблицу истинности для логического выражения: a) A˄B˅А...
YerasylAmangeldi
07.03.2021 10:02
Одноканальный звук длительностью 1сек оцифрован с частотой 1024ГЦ и разрядностью 24 определите размер полученного файла в Кбайтах...
Зейна12
13.11.2021 07:24
Написать программу, которая будет считать сумму пяти произвольных чисел, введенных пользователем. Для ввода чисел использовать одну переменную. (Паскаль)...
ник5032
08.02.2020 20:54
Информатика повороты урок 2 задание номер 6...
Софийка646436
24.08.2020 09:38
RAM – HDD – Video Card – Sound Card – Создайте пары ,поместив рядом с каждым англоязычным термином его русский аналог....
bikosh02
08.11.2022 13:31
По Что не является объектом базы данных ACCESS? Выберите ответ 1.запросы 2.макрос 3.отчет 4.функции...
Екатерина2987
17.02.2022 05:57
Информатика повороты урок 2 9 задание это билим ленд 5 класс поже...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var x:integer;
a,b:real;
if (x=0) and (frac (a)>0) and (frac(b)>0) then
writeln ("Result: ",a-b, ' ', 1-a*b,' ', 2-a/b)
else
writeln ("Summa ",a+b);
end.