Составьте программу в паскале,в которой нужно найти наименьшее из двух чисел
5-9 класс
|
Program f1;
var a,b,max, min:real;
begin
writeln ('vvedine chisla');
readln (a,b);
if (a>b) then (a:=max) else a:=min;
writeln ('max=',max , 'min=',min);
readln;
end.
Program chislo;
var a,b,min:real;
begin
writeln ('vvedine chisla a and b');
readln (a,b);
if (a>b) then min:=b ; else min:=a
writeln ( 'min=',min);
readln;
end.
В верхнем решении находим max который неуказан в задании , поэтому это лишнее !
Другие вопросы из категории
боле? Что я могу еще сказать? варианты ответов: 1)52 байт 2)832 бит 3)416 байт 4)104бит
Я знаю что содержит в предложение 52 символа а как найти эти 52 символа
ОДНОКЛЕТОЧНАЯ АМЁБА КАЖДЫЕ 3 ЧАСА ДЕЛИТСЯ НА ДВЕ КЛЕТКИ. СКОЛЬКО АМЁБ БУДЕТ ЧЕРЕЗ 12 ЧАСОВ.
Использовать циклы. Заранее спасибо.
Читайте также
1. вычисляющую значения функции у=0,3х^3 -4,125х^2-0,01х+2,25 для х от-5 до 5
3. вычисляющую значения функции у=1÷n^2 для х=(1;2;3;4;...;10)
4. удваивающую наименьшее из двух чисел.
и составляют b руб(в месяц).Рост цен ежемесячно увеличивает расходы на 3%,составьте программу расчета необходимой суммы денег,которую нужно единовременно попросить у родителей,чтобы можно было прожить 10 месяцев,используя эти деньги.
пути:
направо,-"Коня потеряешь"
налево,-"голову сложишь"
вперёд,-"невесту найдёшь"
2.Составить прогрмму,которая определяет положительное число или отрицательное.
3.Дано целое число А.Если значение А>0,то необходимо его уыеличить на единицу.Если В<0,то уменьшить на единицу.
Зарание спасибо :)
Агент 007 узнал, что в секретном сейфе трёхзначный код, в котором все три цифры разные.При этом средняя цифра равна разности крайних цифр. Составить программу, которая напечатает для него все такие числа.