Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
C:=A-B;
if C = 0 then WriteLn('Ввели равные числа')
else WriteLn('Ввели не равные числа')
End.
<span>X=2 - в Х будет помещено значение 2
Y=4 - в Y будет помещено значение 4
Y=X*X+X - будет вычислено 2×2+2 = 4+2 = 6 и помещено в Y
X=Y*Y-X*X</span> - будет вычислено 6×6-2×2 = 36-4 = 32 и помещено в Y
Ответ: 32 (вариант 1)
- текст
- зображення
- смартарт
- анімації
- фігури
var
a: <em>array </em>[1..3] of <em>shortint</em>;
i: <em>byte</em>;
begin
for i := 1 to 3 do
begin
a[i] := random(-1024, -1);
writeln(String.Format('a[{0}] => {1}', i, a[i]));
end;
writeln();
a[1] := 0;
for i := 1 to 3 do writeln(String.Format('a[{0}] => {1}', i, a[i]));
<span>end.</span>
Var a,a1,a2,a3,a4:integer;
begin
write('a = ');
readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
writeln('цифра тысяч - ',a1);
writeln('цифра сотен - ',a2);
writeln('цифра десятков - ',a3);
writeln('цифра единиц - ',a4);
end.
Пример:
a = 1234
цифра тысяч - 1
цифра сотен - 2
цифра десятков - 3
цифра единиц - 4