Var
i:integer;
begin
Writeln('Число Квадрат');
i:=14;
while i<=24 do
begin Writeln(i:4,sqr(i):9); i:=i+2 end
end.
<em><u>Результат выполнения программы:</u></em>
Число Квадрат
14 196
16 256
18 324
20 400
22 484
24 576
Var y, x:integer;
begin
read(x);
y:=(abs(x-1))+(sqrt(x)/(sqr(x)*cos(x)))
write('y=',y);
end.
Сначала опишем алгоритм.
Из числа M вида “ABC” требуется получить число N вида “CBA”.
Для этого необходимо найти такое число К, что M+K=N.
100A+10B+C+K=100C+10B+A
99A+K=99C
K=99C-99A=99(C-A)
Формула получения искомого слагаемого получена. Теперь запишем формулы для получения чисел A и C из N.
A=[N/100]
C=N-10*[N/10]
Теперь можно составить блок-схему.
1) Начало
2) Ввод числа M
3) A=[N/100]
C=N-10*[N/10]
K=99*(C-A)
N=M+K
4) Вывод N
5) Конец.
1. a)
2. a)
3. c)
4. a)
5. с)
6. с)
7. d)
8. 20
9.
1) После example4 не стоит ;
2) Вместо red нужно read в обоих случаях
3) Вместо c=e нужно c:=e
4) После c:=a не стоит ;
10. Не понял как делать, возможно так:
(-23+(-22)+(-21)+(-20)+(-19)+(-18)+(-17)+(-16)+(-15)+(-14)+(-13)+(-12)+(-11)+(-10)+(-9)+(-8)+(-7)+(-6)+(-5)+(-4)+(-3)+(-2)+(-1)+0+1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19+20+21+22+23+24+25+26+27+28+29+30+31+32+33+34) / 58 = 319 / 58 = 5,5
Последнее скорее всего не правильно) Извиняй)