Составьте на Паскале программу определения минимума из трёх чисел с использованием
5-9 класс
|
логических операций. Программа должна иметь дружественный интерфейс.
program picaso; uses crt;
var a,b,c,minim:real;
procedure min(a,b:real ; var minim:real);
begin
if a>b then minim:=b else minim:=a;
end;
begin clrscr;
writeln('a');readln(a);
writeln('b');readln(b);
writeln('c');readln(c);
min(a,b,minim);
min(minim,c,minim);
writeln('Min=',minim);
readln;
end.
Другие вопросы из категории
А) y=1/x
Б)y=корень из x^2-1
2)
1. Массив из 10 элементов, которые равны: 1,2,3,...100.
2.Массив из 10 элементов, которые равны: 1,4,9,16,...100.(подсказка-это квадраты чисел)
не помню пароль.на компе я зашла в аккаунт и поменяла пароль.ввела на телефоне,а он не принимает и пишет,что указано неверно(проверяла по тысяче раз каждую буковку,все правильно!!)Умоляю!телефон не включается,а выходит только это окно.
Читайте также
(ввод данных осуществляться в режиме диалога).
заранее спасибо)