<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
var a:=ReadArrString(n);
Writeln(40*'-');
foreach var w in a do begin
var wa:=w.ToWords;
if wa[2].ToInteger>100 then Writeln(w)
end
end.
1.
а=2*а-в=3*2-6=0
в=а+22=0+22=22
<u>Ответ- А=0 В=22</u>
2.
а=2*а-в=3*2-5=1
в= (-1)^2=1
<u>Ответ- А=1 В=1</u>
3.
с=а+в=3+6=9
а=2*в-с=6*2-9=3
в=а+с=3+9=12
<u>Ответ- А=3 В=12</u>
4.
y=x*x=2*2=4
y=y*y=4*4=16
x=y*x=16*2=32
s=x+y=32+16=48
<u>Ответ- x=32 y=16 s=48</u>
<em>После того как переменной присвоили новое значение считается переменная с этим значением, старое значение ни как не учитывается</em>
1.
var x,y:real;
begin
write('x = ');
readln(x);
if x>0
then begin y:=sin(x); writeln('y = ',y); end
else writeln('При x<0 функцию не вычисляем почему-то');
end.
Пример:
x = 1.8
y = 0.973847630878195
2.
var t1,t2:integer; v1,v2:real;
begin
write('t1 = '); readln(t1);
write('t2 = '); readln(t2);
v1:=20/t1; v2:=10/t2;
writeln('v1 = ',v1,' v2 = ',v2);
if v1 > v2
then writeln('Скорость до обеда была выше')
else writeln('Скорость после обеда была выше');
end.
Пример:
t1 = 5
t2 = 4
v1 = 4 v2 = 2.5
Скорость до обеда была выше
3.
var a,k1,k2,k3,k4:integer;
begin
write('a = '); readln(a);
k1:=a div 1000;
k2:=a div 100 mod 10;
k3:=a mod 100 div 10;
k4:=a mod 10;
if (k1<>k2)and(k1<>k3)and(k1<>k4)and(k2<>k3)and(k2<>k4)and(k3<>k4)
then writeln('Все цифры числа различны')
else writeln('В числе есть повторяющиеся цифры');
end.
Пример:
a = 5135
В числе есть повторяющиеся цифры
Диск наверное...................