Даны три числа, найти максимальное из них и заменить квадратом этого числа. Помогите решить плииз с помощью паскаля.
5-9 класс
|
var
a, b, c: integer;
begin
writeln('vvedite 1 chislo:');
readln(a);
writeln('vvedite 2 chislo:');
readln(b);
writeln('vvedite 3 chislo:');
readln(c);
writeln('otvet');
if (a<b)and(c<b) then writeln(sqr(b))else
if (b<a)and(c<a) then writeln(sqr(a))else
if (a<c)and(b<c) then writeln(sqr(c));
end.
Другие вопросы из категории
соответствует последовательности 0010001?
1) КАРА. 2) РАК. 3) АКР. 4)КАР
Читайте также
сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.
Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа
ПОМОГИТЕ ОЧЕНЬ ПРОШУ
Задачи:
1.Ввести три целых числа, найти максимальное из них
2.Ввести пять целых чисел, найти максимальное из них
верно ли,что первая цыфраа данного числа чётная?
3)найти все трёхзначные числа,которые состоят из разных цыфр,а их сумма равна А(А вводится с клавиатуры)
4)найти все симметричные натуральные числа(палиндромаиз промежутка от А до В(А и В вводится с клавиатуры)