Даны три числа определить максимальное из них и построить блок схему
10-11 класс
|
var
a,b,c:integer;
begin
readln(a);
readln(b);
readln(c);
if (a>b) and (a>c) then
writeln('naibolshee a=', a)
else if (b>a) and (b>c) then
writeln('naibolshee b=', b)
else if (c>a) and (c>b) then
writeln('naibolshee c=', c)
else
writeln('naibolshego net');
end.
Другие вопросы из категории
Например: если я ввожу 2 должно выйти март
В классе учится 20 учеников: 8 мальчиков и 18 девочек. В какой системе счисления записаны эти сведения? Запишите количество мальчиков и девочек в десятичной системе счисления.
Читайте также
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.
Даны 6 различных чисел. Определить максимальное из них. (Определить функцию, находящую максимум из двух различных чисел).
Нужно написать программу для Pascal.
2)Определить 35 простое число(программа +блок схемы)
3)Дано:трехзначное число ,определить :является ли произведение его цифр трехзначным числом(программа+блок схемы)