tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу чтоб
Написать программу чтоб работала в pascal запрашивает с клавиатуры два целых числа, их разность и частное (результат деления) и выводит на экран сообщение о правильности сделанных пользователем вычислений;
мага05051
1 04.06.2019 09:00
1
Ответы
faceface96
01.10.2020 19:12
PascalABC
var x,y,z:integer;
t:real;
begin
writeln('Введите первое целое число');
readln(x);
writeln('Введите второе целое число');
readln(y);
writeln('Введите разность');
readln(z);
writeln('Введите частное');
readln(t);i
f ((z=x-y)or (z=y-x)) and((t=x/y)or(t=y/x)) then writeln('Вычисления выполнены правильно')
else writeln('Вычисления выполнены неправильно');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
stepabogocev37
07.07.2019 21:30
Напишите мне пожвлусто конспект на тему измерение информации...
BloodyMary001
06.03.2019 23:30
1)дано целое многозначное число n.найти сумму цифр этого числа 2)найти произведение первых n натуральных чисел. 2)найти произведение первых n натуральных чисел....
ильюхха
06.03.2019 23:30
Решить по информатике за 6 класс-условие в пояснение туристы-отец, мать и два брата-близнеца должны переправиться через реку.в их распоряжении есть маленькая лодка, вмещающая...
Adidasler05
29.04.2020 14:25
Общий вид оператора цикла с заданным числом повторений ( цикл-ДЛЯ )FOR DO TO WHILE DOREPEAT UNTILUNTIL REPEAT DO WHILE FOR TO DO...
Yulia14929
20.03.2021 15:08
Написать программу, которая будет сортировать массив из 20 случайных чисел, из диапазона от -5 до 5 по следующим правилам: 1- убрать нули и повторяющиеся элементы. 2- оставшиеся...
katarina1002
11.03.2022 10:21
B. Оформите вывод элементов 9, 10, 13 и 4 [4] print(b)28112130935 11 10 8print (a[0])b[2] = 9print(b)a[0] * [1] = 7print(a[0][2])print(a)print(b)b = a[0]print(a[1])a=[[9,10,13],[4]...
Ангелина0611
11.03.2022 10:22
сор по информатике, нужен полный ответ...
Джерьяна
11.03.2022 10:43
38//7=38%7=9**2=ИНФОРМАИКАДАН онлайн мектеп...
Маркус337
08.07.2019 04:50
10 класс длина лестницы равна 10 метрам. лестницу прислонили к стене таким образом, что расстояние от основания лестницы до стены на 2 метра меньше высоты, на которой расположен...
karolinaanime
08.07.2019 04:50
Периметр прямоугольника равняется 82 см. а длинна диагонали ровна 29 см. найти длинны сторон прямоугольника? ....
Популярные вопросы
Охарактеризовать положение Гетманщины за гетмана Ивана Скоропадского, Павла...
3
Унаслідок двох послідовних знижень ціни на одне й те саме число відсотків...
1
Как изменилась Римская империя в IV-V веках? Урок 1 Распредели указанные понятия...
3
ЛЮДИ ДОБРЫЕ (ето украинский) (7 клас)...
3
Дополнив предложения подходящими по смыслу словами .Определи тему и озаглавь...
1
Задания на развитие функциональной грамотности в рамках проекта «Зейін» для...
3
X:6=54 за домашку оценку ставят! ...
1
Чи паралельні прямі Образ a і b?Пояснити....
1
Сравните экономику семьи,фирмы,государства. Что у них общего? Нужно 3 аргумента...
1
9. Побудуй і запиши словосполучення, додаючи прислівники. Читати ( як?)...,...
2
var x,y,z:integer;
t:real;
begin
writeln('Введите первое целое число');
readln(x);
writeln('Введите второе целое число');
readln(y);
writeln('Введите разность');
readln(z);
writeln('Введите частное');
readln(t);i
f ((z=x-y)or (z=y-x)) and((t=x/y)or(t=y/x)) then writeln('Вычисления выполнены правильно')
else writeln('Вычисления выполнены неправильно');
end.