Question

Выполнить задания, связанные с Turbo Pascal:

 

1) Какой оператор позволяет менять значения переменных и вычислять значения выражений?

 

2) Выполнить алгоритм при x=345:

Начало

ввод x

a=x div 100

b=x div 10 mod 10

c=(a+b)/2

вывод a

вывод b

вывод c

конец

 

3) Что появится на экране после выполнения фрагмента программы:

a:=7;

b:=5;

a:=a-b;

Writeln(b-a*2);

Writeln('a=',a,'b=',b);

 

4) Дана сторона квадрата, найти его периметр.

 

5) Дано трёхзначное число. В нём зачеркнули последнюю справа цифру и приписали её в начале. Найти полученное число.

 

*Задачи 4 и 5 решить на языке программирования, используя математические функции.

Answer 1

1) присвоения :=
2)
3
4
3,5
 
3) 1
a=2 b=5

var a,x,x1,x2,x3:integer;
Begin
    read(a);
    writeln('4. s=',4*a);
    
    read(x);
    x3:=x mod 10;
    x1:=x div 10;
    writeln('5. x=',x3*100+x1);
End.