tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Склавиатуры вводится число
Склавиатуры вводится число а,в, и целое число х. если х=0 а,в-real найти разность а-в, 1-а*в, 2-х: integer a: в, в противном случае найти сумму.
alsusarip
1 15.09.2019 11:40
3
Ответы
sashapeterov85
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
zhjdjq2005
09.04.2021 00:45
Разработка алгоритма. Урок 1 В ходе создания модели задачи в виде блок-схемы, использовался блок, изображенный ниже. Каково назначение данного блока?организация...
verchik1739
09.04.2021 01:07
N – количество цветов i – глубина цвета (объем памяти для 1 пикселя)K – количество пикселейI – информационный объем файлаN=2i I=K*iДля хранения растрового изображения...
maga156
09.04.2021 02:28
Даны два целых числа. Составьте блок-схему алгоритма вычисления: Частного этих чисел, если оба числа четные. Разность этих чисел в случае, если одно из чисел четное,...
galina7257
09.04.2021 02:58
Исполнитель Редактор получает на вход строку цифр и преобразовывает её. Редактор может выполнять две команды, в обеих командах v и w обозначают цепочки символов....
Сл2064
09.04.2021 03:25
Разработать программу, подсчитывающую количество чётных по значению элементов динамического одномерного массива размерности n. ~Pascal~...
AннаКрутая
09.04.2021 03:29
Разработать программу, подсчитывающую количество элементов кратных 5 в динамическом массиве размерности n. ~Pascal~...
maxmax41
09.04.2021 03:34
Разшифровать предложение: Езн йлел, езн цълфя...
AlinaVaisberg
09.04.2021 05:36
Написать программу,вычисляющуюнаименьшее общее кратное двух целыхположительных чисел a и b.Среда программирования пайтон...
TeReNoRi
09.04.2021 05:53
ученик заметил что во время рисование окружность изображается синим цветом что это значит это в онлайн мектеп информатика 7 класс мне нужны все ответы...
allknown
09.04.2021 05:55
Выпуклый четырех угольник задан длинами своих сторон: a, b, c и d. Написать программу для вычисления его площади если известно что между сторонами a и b прямой...
Популярные вопросы
Автобус проехал расстояние 232 км за 4 ч. велосипедист, затратил...
3
Всказке редьярда киплинга -рикки-тикки-тави в борьбе со змеями...
3
Составьте схему предложения. из скольких частей оно состоит....
3
Хей, мне нужна твоя сложный мне нужно краткое содержание войны...
1
Высота берёзы - 8м, а высота дома - 24м. во сколько раз дом...
2
Имеются два одинаковых электрических нагревателя мощностью 600...
2
Какое из перечисленных сочетаний не является словосочитанием?...
2
1. у а.с. пушкина можно встретить выражение: «дней александровых...
1
Иобъясните, не понятно 1) чему равен угол отражения лучей от...
1
Кто правил после александра невского?...
1
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.