Условный оператор
Из трех данных чисел выбрать наименьшее и наибольшее.
Program Anadra;
uses crt;
var a,b,c,min,max :integer;
begin
writeln(‘Введите 3 числа’);
readln(a);
readln(b);
readln(c);
If a>b then max:=a
Else max:=b;
If c>max then max:=c;
If a<b then min:=a
Else min:=b;
If c<min then min:=c;
writeln(‘Самое большое число ‘,max);
writeln(‘Самое маленькое число ‘,min);
end.
Из трех данных чисел выбрать наименьшее.
Program Anadra;
uses crt;
var a,b,c,min :integer;
begin
writeln(‘Введите 3 числа’);
readln(a);
readln(b);
readln(c);
If a<b then min:=a
Else min:=b;
If c<max then min:=c;
writeln(‘Самое маленькое число ‘,min);
end.
Разбор решения:
Задачка решается аналогично этой.
Из трех данных чисел выбрать наибольшее.
Program Anadra;
uses crt;
var a,b,c,max :integer;
begin
writeln(‘Введите 3 числа’);
readln(a);
readln(b);
readln(c);
If a>b then max:=a
Else max:=b;
If c>max then max:=c;
writeln(‘Самое большое число ‘,max);
end.
Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).
Program Anadra;
uses crt;
var a,b,c: integer;
begin
writeln(‘Введите 3 числа’);
readln(a);
readln(b);
readln(c);
If a>0 then a:=sqr(a)*a;
If a<0 then a:=sqr(a);
If b>0 then b:=sqr(b)*b;
If b<0 then b:=sqr(b);
If c>0 then c:=sqr(c)*c;
If c<0 then c:=sqr(c);
writeln(‘Новые значения: ‘);
writeln(a);
writeln(b);
writeln(c);
end.