pascal
1.Вводится 4-значное число из его цифр получить два двухзначных числа.Первое состоит из 1 и 3 цифр исходного числа, второе из 2 й и 4-й.Например 3765>36 и 75
2.Cоставить программу расчета значения функции:
Z=tg x-|2sin 2y+7.8 cos x |+ 10 При любых значениях x= и y= результат вывести в x= и y= z=
1.Вводится 4-значное число из его цифр получить два двухзначных числа.Первое состоит из 1 и 3 цифр исходного числа, второе из 2 й и 4-й.Например 3765>36 и 75
2.Cоставить программу расчета значения функции:
Z=tg x-|2sin 2y+7.8 cos x |+ 10 При любых значениях x= и y= результат вывести в x= и y= z=
More Questions From This User See All
Answers & Comments
1)
var
n,a,b:integer;
begin
repeat
readln(n);
until (n>999) and (n<10000);
a:=n div 1000 *10 + n mod 100 div 10;
b:=n div 100 mod 10 *10 + n mod 10;
writeln(a,' ',b);
end.
2)
var
x,y,z:real;
begin
readln(x,y);
z:=tan(x*pi/180)-abs(2*sin(2*y*pi/180)+7.8*cos(x*pi/180))+10;
writeln(z);
end.
Если моё решение помогло вам, пометьте его лучшим. Спасибо!
main.pas(8,4) Fatal: There were 1 errors compiling module, stopping