Var
n: integer;
begin
readln(n);
writeln('Последняя цифра: ', n mod 10);
while n > 9 do
n := n div 10;
writeln('Первая цифра: ', n);
end.
Ответ:
program RoundLS;
uses
Math;
var
R, L, S: Double;
begin
Write ('Введите радиус: ');
ReadLn (R);
L := 2 * Pi * R;
S := Pi * R * R;
if L < S then
WriteLn ('Длина окружности = ', L :15 :5)
else
WriteLn ('Площадь круга = ', S :15 :5);
ReadLn;
end.
Не видно, там текст размытый и ничего не видно, попробуйте скопировать текст
6) Конечность
7) Дискретность
8) Результативность
9) Массовость
10)Детерминированность
Сместиться в точку (х,у)
сместиться на вектор (х,у)
опустить перо
поднять перо
все команды, которые помню применяй