Program start;
var x,y,z:integer;
begin
readln(x,y,z);
If (x mod 2 = 0) and (y mod 2 = 0) and (z mod 2 = 0) then writeln('Кол-во: 3 | Произведение: ' , z*y*x)
else if (x mod 2 = 0) and (y mod 2 = 0) then writeln('Кол-во: 2 | Произведение: ' , y*x)
else if (x mod 2 = 0) and (z mod 2 = 0) then writeln('Кол-во: 2 | Произведение: ' , z*x)
else if (z mod 2 = 0) and (y mod 2 = 0) then writeln('Кол-во: 2 | Произведение: ' , y*z)
else if (x mod 2 = 0) then writeln('Кол-во: 1 | Произведение: ' , x)
else if (y mod 2 = 0) then writeln('Кол-во: 1 | Произведение: ' , y)
else if (z mod 2 = 0) then writeln('Кол-во: 1 | Произведение: ' , z)
else writeln('Все числа нечетные!');
end.
const
y = 5;
x = 2;
var
x1,x2,y1,y2:integer;
begin
write('x1 = '); readln(x1);
write('y1 = '); readln(y1);
write('x2 = '); readln(x2);
write('y2 = '); readln(y2);
if sqrt( (x1-x) * (x1-x) + (y1 - y) * (y1 - y)) < sqrt( (x2-x) * (x2-x) + (y2 - y) * (y2 - y)) then
writeln('A ближе')
else
if sqrt( (x1-x) * (x1-x) + (y1 - y) * (y1 - y)) > sqrt( (x2-x) * (x2-x) + (y2 - y) * (y2 - y)) then
writeln('B ближе')
else
writeln('Они на одинковом расстоянии');
readln;
end.
Объяснение:
и трехзначному числу K элементов некоторого множества программа должна написать формулировку определяющую колличество заданных элементов(Числом) и их название(Словами в правильном падеже), программа в паскале