Блок-схема

 

Текст программы

Program zadach2v1;

Uses crt;

Var

x,y:integer;

d,c,e:byte;

begin

Writeln;Writeln;Writeln;

writeln(‘Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти полученное число.');

write('Введите трехзначное число’);

readln(x);

Writeln;

c:=trunc(x/100);

d:=trunc((x-c*100)/10);

e:=x-c*100-d*10;

y:=e*100+c*10+d;

Writeln(‘Полученное число равно ', y);

textcolor(20);

writeln;writeln;

Writeln('Разработал Иванов И.И.':50);

readln;

end.

Протокол выполнения

 

Задача № 3(разветвляющий алгоритм)

Постановка задачи Верно ли неравенство при заданном значении х:

Математическая модель

И.д. x

В.д Y$

Связь: блок-схема