Var i: Integer;
begin
write('Число: ');
readLn(i);
i := i mod 10;
writeLn('Цифра квадрата = ',
sqr(i) mod 10);
<span>end. </span>
При копировании кода формат испортился. Код должен выглядеть как на картинке
var r, l: real; //Радиус и длина окружности соответственно top, bottom: real; //Внешний и внутренний радиус кольца ex_num: word;begin write('Введите номер задания: '); read(ex_num); if ex_num = 1 then begin write('Введите радиус: '); read(r); writeln('Длина окружности: ', 2 * pi * r); writeln('Площать круга данного радиуса: ', pi * r * r); end else if ex_num = 2 then begin writeln('Введите длину окружности: '); read(l); write('Площадь круга: ', pi * sqr(l / 2 * pi)); end else begin write('Введите внешний радиус кольца: '); read(top); write('Введите внутренний радиус кольца: '); read(bottom); write('Площадь кольца: ', pi * top * top - pi * bottom * bottom); end;end.
Все проверялось с помощью программы(код ниже):
3 16
8 13
13 10
11 14
16 11
______
9 5
7 9
12 6
10 10
15 7
13 11
11 15
16 12
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>
begin
var x:= ;
var y:= ;
Println(x,y);
while x<16 do
begin
if x>y then begin x:=x-2; y:=y+4; end else begin x:=x+5; y:=y-3; end;
Println(x,y);
end;
end.