Вход
Регистрация
О проекте Как заработать?
42

Даны переменные A,B,C,D, отыскать среди них максимум и минимум…

mikos 22 марта 2023

Даны переменные A,B,C,D, отыскать среди них максимум и минимум, нужно текст для паскаля, помогитепожалуйста

категория: информатика
ответить
в избранное

86

Program avx; var a,b,c,d; beginread (a,b,c,d); if (a

пользователи выбрали этот ответ лучшим
комментировать
в избранное ссылка отблагодарить

Знаете другой ответ?
Другие вопросы по информатике
imoisey
22 марта 2023
1
ответ
Задание 1. Даны высказывания: А=Я выполнил домашнее задание по информатике. В=Я получил оценку «5». С=Я получил оценку «2» . D=Я буду наказан. Запишите следующие сложные высказывания на языке алгебры логики: Я выполнил домашнее задание по информатике, я получу сегодня «5». Хотя я не выполнил домашнее задание по информатике, я не получил «2». Задание 2. Даны простые высказывания: А={2*2=4}, В={2∙2=5}, С={3∙3=9}. Какие из составных высказываний истинны: а) А; б) В; в) С; г) А∙В; д) AvB; е) А∙С; ж) СvB. Задание 3. Даны простые высказывания: А={5<3}, В={2=3} и С={4>2}. Определите истинность составных высказываний a) (AvB) ∙ C; б) (A ∙ C) v (B ∙ C); в) (A ∙ B) vC .
andreaskotin
22 марта 2023
1
ответ
Ребят, помогите перевести данный код на язык Visual Basic Program prim; Var a,r,s1,s2: real; BeginWrite ('введите площадь круга и квадрата'); Readln (s1, s2); A: =sqrt (s2); R: =sqrt (s/3,14); If (r (4*r) then writeln ('квадрат уместится в круге') Else Writeln ('квадрат не уместится в круге'); ReadlnEnd.
aliona
21 марта 2023
1
ответ
Определите значение целочисленных переменных x и y после выполнения фрагмента программы: x: =836, y: =(x mod 100)*4, x: =x div100+y1) x=152, y=1442) x=66,44, y=33,443) x=3352, y=33444) x=144, y=152
ingwarr
21 марта 2023
1
ответ
Дан массив состоящий из 20 целых чисел. Требуется найти среднее арифметическое его нечетныхэлементов?
pro__street
21 марта 2023
1
ответ
Функция преобразующая десятичное число в шестнадцатеричное 1) OCT 2) HEX 3) CHR 4) ACS
garaevs
21 марта 2023
1
ответ
Одинаковые ли значения примет С после выполнения фрагментов программ? А) а: =-1; b: =5; c: =16 If (a>1) or (b=0) thenc: =a+b; b) a: =9; b: =7; c: =10 if (a>0) and (b=7) then c: =a+b
arist
21 марта 2023
1
ответ
Помогите пожалуйста с заданием, срочно очень, очень) Определить сколько единиц содержит десятичное число 165, записанное в системе счисления соснованием 3
alexmosu
21 марта 2023
1
ответ
1. Перевести двоичную и десятичную системы счисления следующие числа 48,27 и EF,12
cezar
21 марта 2023
1
ответ
(Время: 1 сек. Память: 16 Мб Сложность: 28%) Сложно найти человека, который любит решать однообразные задачки по математике. В последнее время школьникамстало легче, ведь с появлением компьютеров почти в каждой квартире стало существенно проще проверять себя. Но программы, в которых решение уравнений является стандартной функцией, установлены не везде. Напишите программу, которая сможет решить уравнениеax2+bx+c=0 при заданных коэффициентах a, b и c. Входные данныеЕдинственная строка входного файла INPUT.TXT содержит три целых числа a, b и c, каждое из которых не превосходит по модулю 30000. Числа разделяются пробелами. Выходные данныеНа первой строке выходного файла OUTPUT.TXT выведите число действительных корней заданного уравнения. Затем выведите сами корни по одному на строке с ошибкой, не превосходящей 10-4. Если для заданных коэффициентов корней бесконечно много, на единственной строке выходного файла выведите -1. Примеры№INPUT.TXTOUTPUT.TXT11 -3 221,0000002,00000020 -1 616,000000
Задайте свой вопрос

ПОПУЛЯРНОЕ
imoisey, 22 марта 2023
Задание 1. Даны высказывания: А=Я выполнил домашнее задание по информатике. В=Я получил оценку…
andreaskotin, 22 марта 2023
Ребят, помогите перевести данный код на язык Visual Basic Program prim; Var a,r,s1,s2: real; BeginWrite
aliona, 21 марта 2023
Определите значение целочисленных переменных x и y после выполнения фрагмента программы: x: =836, y: =
ingwarr, 21 марта 2023
Дан массив состоящий из 20 целых чисел. Требуется найти среднее арифметическое его нечетныхэлементов?
pro__street, 21 марта 2023
Функция преобразующая десятичное число в шестнадцатеричное 1) OCT 2) HEX 3) CHR 4) ACS
garaevs, 21 марта 2023
Одинаковые ли значения примет С после выполнения фрагментов программ?
arist, 21 марта 2023
Помогите пожалуйста с заданием, срочно очень, очень) Определить сколько единиц содержит десятичное число 165…
alexmosu, 21 марта 2023
1. Перевести двоичную и десятичную системы счисления следующие числа 48,27 и EF,12
cezar, 21 марта 2023
(Время: 1 сек. Память: 16 Мб Сложность: 28%) Сложно найти человека…
27400
Алгебра
14821
Английский язык
14216
Биология
7369
Другой
720
Экономика
18828
Физика
8304
География
15850
Геометрия
5255
Информатика
11818
История
23332
Химия
15992
Литература
73118
Математика
8152
Обществознание
465
Правоведение
46271
Русский язык
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...