Текст программы. Writeln(' Даны катеты прямоугольного треугольника

Program zadach1v1;

Uses crt;

Var

A,b:integer;

p,c:real;

begin

Writeln(' Даны катеты прямоугольного треугольника. Найти его периметр.':70);

writeln; writeln;

write('Введите длину одного катета a=');

readln(a);

write('Введите длину другого катета b=');

readln(b);

c:=sqrt(sqr(a)+sqr(b));

textcolor(2);

writeln;

writeln('Ответ:');

writeln;

writeln('длина гипотенузы с заданными катетами равна ':50,c:6:2);

writeln('Периметр треугольника равен':35, (a+b+c):5:2);

textcolor(20);

writeln;writeln;

Writeln('Программу разработал Иванов И.И.':50);

readln;

end.

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

Задача № 2(целочисленная арифметика)

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

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

И.д. x-заданное трехзначное число

В.д. y-полученное трехзначное число

Связь: с=trunc(x/100)

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

e=x-c*100-d*10

y=e*100+c*10+d