Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
Таталка
4 года назад
15
Составить программу наименьшего четырёх чисел и вывода на экран его квадрата
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
XelgaArt
4 года назад
0
0
Var chisl:array[1..4]of integer;
i,min:integer;
begin
for i:=1 to 4 do begin
Write(i,'-чисдо='); Readln(chisl[i]);
end;
min:=chisl[1];
for i:=1 to 4 do begin
if chisl[i]<=min then min:=chisl[i];
end;
Writeln('Квадрат минимума=', sqr(min));
end.
Отправить
Читайте также
В корзине 4 яблока и 3 апельсина.какое наименьшее число фруктов нужно вынуть из корзины не глядя чтобы среди них было 2апельсина
Роман Полешцев
2 фрукта нужна вынуть
0
0
3 года назад
В секцию приенемают мальчиков в возрасте от 10 до 12 лет и ростом не ниже 1,40м и выше 1,55м. Определите примут ли в секцию маль
Bagel7890 [89]
Ответ: Нет, не примут
0
0
4 года назад
-сайт с библиотекой изданных книг, журналов, газет и прочих оригинальных текстов называется:
bos260979 [7]
Наверное викитека я так думаю.
0
0
4 года назад
К какому виду программного обеспечения относятся утилиты
oduvan4ik2000 [28]
К системному программному обеспечению
0
0
4 года назад
В течение двух недель человек заключает пари на скачках. В первый день он делает ставку в 1 фунт и проигрывает. Во второй день,
nbd17
FOR i = 1 TO 14
s = s + i
NEXT i
<span>PRINT "s=";s</span>
0
0
4 года назад
Смотрите также:
Найти среднее арифметическое всех целых чисел от 100 до b(значение b вводится с клавиатуры) ПЖ УМОЛЯЮ
9
·
1 ответ
На Паскале помогите написатьДано целое число k (1<=k<=365). Присвоить целочисленной величине n значение 1,2,...,6 или 0 в
9
·
1 ответ
Помогите! Правильный ответ 3), то есть подсистема. Но как? Если компьютер в такой системе является подсистемой (это точно), то к
15
·
1 ответ
Выразите 8 Мбайт в битах.распишите
12
·
1 ответ
Определить минимально необходимое количество памяти (в битах и байтах) для хранения текста (соблюдая строчные и прописные начерт
12
·
1 ответ
Разработать алгоритм нахождения суммы положительных чисел из N введен если таких нет то вывести сообщ об этом(Pascal)
6
·
1 ответ
Срочно помогите пожалуйста. номер 6 .Спасибо!
5
·
1 ответ
Напишите программу для расчета по формуле.
7
·
1 ответ
Звуковая плата производит двоичное кодирование аналогового звукового сигна- ла. Какое количество информации необходимо для кодир
6
·
1 ответ
Даны два числа. Большее число увеличить на 3, а меньшее уменьшить на 5
6
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!