С использованием?)
var
x,y,z:integer;
begin
write('x= '); readln(x);
write('y= '); readln(y);
z:=x;
x:=y;
y:=z;
writeln;
writeln('x= ',x); write('y= ',y);
readln;
end.
Предположим, что значение х находится в ячейке А2. Запись в условии задания неграмотная, поэтому придется сделать предположение что SIN2 означает квадрат синуса.
Тогда для ячейки со значением Y формула запишется так:
=SIN(3*ПИ()*A2)-COS(3*ПИ()*A2)*SIN(ПИ()*A2)^2
Для ячейки со значением Z формула будет иметь следующий вид:
=COS(ПИ()*A2)-COS(3*ПИ()*A2)*SIN(ПИ()*A2)^2
Var
a: array [1..4] of integer;
i, sf, ss : integer;
begin
for i:=1 to 4 do
begin
a[i]:= random(50)+1;
writeln(a[i]);
if a[i] mod 2 = 0 then sf:=sf+a[i] else
ss:= ss+a[i];
end;
writeln('Сумма четных: ', sf, ' ; сумма нечетных: ', ss);
<span>end.</span>
Начало
|
введите значения катетов
|
ввод a,b
|
g:=sqrt(a*a+b*b)
|
вывод g
|
конец
Тело цикла будет выполнено 31 раз. Следовательно переменная s станет равна 93