<span> var
a,b: integer;
begin
write('введите 1-е число: ');
readln(a);
write('введите 2-у число: ');
readln(b);
writeln('сумма ',a,' и ',b,' = ',a+b);
writeln('разность ',a,' и ',b,' = ',a-b);
writeln('произведение ',a,' и ',b,' = ',a*b);
writeln('частное ',a,' и ',b,' = ',(a/b):5:2);
readln;
end.</span>
Var a:array[1..100] of integer;
i,n,max,min:integer;
begin
writeln('Skolko elementov');
readln(n);
for i:=1 to n do begin write('a[',i,']='); read(a[i]); end;
max:=a[1]; min:=a[1];
for i:=1 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if a[i]<min then min:=a[i];
writeln('Max - Min =' ,max-min);
<span>end.</span>
Эта задача решается с конца. У всех девочек есть по 32 яблока, так получилось после хода Насти, то есть до её хода у Кати, Лизы и Маши было по 16 (и Настя дала им по 16), а у самой Насти было 80 (16+16+16+32 = 80).
Запишем в виде таблички:
--К-- --Л-- --М-- --Н--
16 16 16 80
32 32 32 32
До Машиного хода у Кати и Лизы было по 8, у Насти 40, у самой Маши 8+8+40+16=72
--К-- --Л-- --М-- --Н--
8 8 72 40
16 16 16 80
32 32 32 32
До хода Лизы:
--К-- --Л-- --М-- --Н--
4 68 36 20
8 8 72 40
16 16 16 80
32 32 32 32
До хода Кати, то есть сначала:
--К-- --Л-- --М-- --Н--
66 34 18 10
4 68 36 20
8 8 72 40
16 16 16 80
32 32 32 32
Ответ: Катя = 66, Лиза = 34, Маша = 18, Настя = 10
Можно использовать формулу:
=ЕСЛИ(ЕСЛИ(ЕЧЁТН(A1);1;0)+ЕСЛИ(ЕЧЁТН(B1);1;0)+ЕСЛИ(ЕЧЁТН(C1);1;0)=1;ИСТИНА;ЛОЖЬ)