1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program pr; var x,y,z:real; function zxy(x,y:real):real; var f:real; begin f:=exp(y*ln(x)); zxy:=f; end; begin writeln('Введите х'); readln(x); writeln('Введите y'); readln(y); z:=zxy(x,y); writeln('z= ',z); end.
Uses crt;
var i,a,b,c:integer;
begin
for i:=1 to 20 do
begin
if i<=7 then
begin
a:=a+i;
b:=b+sqr(i);
end;
if (i mod 2) = 0 then
c:=c+i;
end;
writeln('Сумма первых семи натуральных чисел: ',a);
writeln('Сумма первых семи натуральных чисел возведенных в квадрат: ',b);
writeln('Сумма четных чисел от 1 до 20: ',c);
<span>end.</span>
Ответ №1
С файлом ничего не приключилось, где был, там и лежит
Номер 17, ответ 9
А ещё у вас ошибка вроде в 18
1 А) Автозаполнение порядкового номера(а1 а7)
Автозаполнение формул(Е2 Е7 С7 Е7
1)C1D2
2)C2C6