if p mod 2=0 then writeln ('оканчивается на четную цифру')
else writeln ('оканчивается на четную цифру');
while n> 0 do
begin
n: =n div 10;
s: =s+1;
end;
writeln ('количество цифр в числе', s);
end.
Ответ дал: Гость
var x1,x2,x3,x4: integer;
function max(a,b: integer): integer
begin
if a> b then max: = a
else max: =b;
end;
begin
read(x1,x2,x3,x4);
x1: =max(x1,x2);
x2: =max(x3,x4);
x1: =max(x1,x2);
writeln(x1);
end.
Ответ дал: Гость
ход решения таков:
набрать кувшин 8 л. из него отлить в кувшин 3 л. затем вылить эти 3 л. затем опять отлить из 8литрового в кувшин 3 л. оставшаяся вода в 8литровом кувшине =2 л. переливаешь в 3литровый. потом набираешь полный 8литровый. из него доливаешь воды в 3литровый, т.е. 1 л. остается 7 л.
Популярные вопросы