Написать программу, которая определяет значение целочисленной переменной A, после выполнения фрагмента алгоритма:

A:=247;

В: = (Аdiv 100) 10-9

А: = (10*b-a) mod 10;

Question

Вацлава

4 июля, 21:56

+2

Ответы (1)

Знаете ответ на вопрос?

Евдокимыч · Answer 1

Как на счет

Program sk;

var

A, B:integer;

begin

A:=247;

B: = (A div 100) * 10-9;

A: = (10*B-A) mod 10;

writeln ('A = ', A) ;

end.

Написать программу, которая определяет значение целочисленной переменной A, после выполнения фрагмента алгоритма:A:=247;В: = (А*div 100) * 10-9А: = (10*b-a) mod 10;