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

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

mikos 12 августа 2022

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

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

86

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

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

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