Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ксюха1212
29.07.2021 07:38 •
Информатика
Дано 4 числа (без разницы x,y,z,q),составить блок схему для нахождения минимального числа при условии,что все числа неравны.
Показать ответ
Ответ:
Dodod616
07.10.2020 18:39
Program abc;
var x,min,i:integer;
begin
min:=30000;
for i:=1 to 4 do
begin
writeln('Ввежите число');
readln(x);
if x<min then min:=x;
end;
writeln(min);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Outrage
11.05.2021 16:45
, можно в форме эксель или распишите куда все тыкать Вычислить в ячейках E2:E11 значения регрессионной функции. Для этого в ячейку Е2 ввести формулу функции с использованием...
576474811624
12.05.2023 19:28
(pascal abc) в один из летних дней аркадий со своими родителями отправился в автомобильное путешествие. он надеялся, что за городом им удастся избежать ненавистных пробок....
2006Liora
12.05.2023 19:28
Построить блок схему алгоритма вычисления площади треугольника по формуле герона где р полупериметр треугольника со стронами а.в.с...
miha1lovkirill
12.05.2023 19:28
Дана матрица целых чисел a[n,n] определить номер строки,в которой сумма элементов максимальна...
lili2018
12.05.2023 19:28
Заполнить одномерный массив по правилу: b по основанию n =sin (n*p/180)...
Sveta1100
25.03.2020 03:24
С++. С Vectora. Удаление элемента Удалите из массива элемент в индексом k. Обратите внимание, считывание и вывод массива уже написаны за вас, необходимо написать только фрагмент...
easyanswer
15.01.2022 02:50
Запиши мантиссу числа и порядок числа 219000=0,219⋅...
titsdeil
28.11.2021 16:41
Вpascal abc составить программу которая формирует масив и 10 случайнных чисел из промежутка [2; 30] и меняет значения второго и пятого элементов...
Tigor111
28.11.2021 16:41
Решить, ! дан фрагмент программы. что в результате выполнения будет на экране? i=1 k=1 while i 4 i=i+(2*i+1) mod (2*i) k=k+k*i wend print k 70 65 64 60...
sailorproblema
26.01.2023 16:41
Максим ніколи що займе останнє місце на спартакіаді а припускав б надіявся в очікував г думав...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x,min,i:integer;
begin
min:=30000;
for i:=1 to 4 do
begin
writeln('Ввежите число');
readln(x);
if x<min then min:=x;
end;
writeln(min);
end.