Первая задача ------------------------------------------- Program DvachAnon; var a,b,c,max:real; begin write('Введите первое число: '); read(a); write('Введите второе число: '); read(b); write('Введите третье число: '); read(c); if a>b then max:=a else max:=b; if c>max then max:=c; write ('Произведениe двух наименьших из трех чисел: ',a*b*c/max); end.
wookie1999
8. Даны 3 числа. Найти разность между наибольшим и наименьшим среди них.
9. Даны целочисленные координаты точки на плоскости. Если точка совпадает с началом координат, то вывести 0. Если точка не совпадает с началом координат, но лежит на оси OX или OY, то вывести соответственно 1 или 2. Если точка не лежит на координатных осях, то вывести 3.
10. Дано натуральное число n. Если число четное и при его делении на 2 результат будет больше 10, удвоить его, иначе оставить без изменения.
wookie1999
11. Определить, является ли треугольник со сторонами a, b, c равнобедренным.
KOKisOnline
Program DvachAnon; var n:integer; beginwrite('Введите натуральное число:' ); read(n); if (n mod 2 = 0) and (n/2 > 10) then writeln(n*2) else writeln(n) end.
KOKisOnline
Program DvachAnon; var n:integer; begin write('Введите натуральное число:' ); read(n); if (n mod 2 = 0) and (n/2 > 10) then writeln(n*2) else writeln(n) end.
Answers & Comments
Verified answer
Первая задача-------------------------------------------
Program DvachAnon;
var a,b,c,max:real;
begin
write('Введите первое число: ');
read(a);
write('Введите второе число: ');
read(b);
write('Введите третье число: ');
read(c);
if a>b then
max:=a
else
max:=b;
if c>max then
max:=c;
write ('Произведениe двух наименьших из трех чисел: ',a*b*c/max);
end.
9. Даны целочисленные координаты точки на плоскости. Если точка совпадает с началом координат, то вывести 0. Если точка не совпадает с началом координат, но лежит на оси OX или OY, то вывести соответственно 1 или 2. Если точка не лежит на координатных осях, то вывести 3.
10. Дано натуральное число n. Если число четное и при его делении на 2 результат будет больше 10, удвоить его, иначе оставить без изменения.
var n:integer;
beginwrite('Введите натуральное число:' );
read(n);
if (n mod 2 = 0) and (n/2 > 10) then
writeln(n*2)
else
writeln(n)
end.
var n:integer;
begin
write('Введите натуральное число:' );
read(n);
if (n mod 2 = 0) and (n/2 > 10) then
writeln(n*2)
else
writeln(n)
end.