Program b_3;
const Pi=3.1415926;
var R,S,C:real;
begin
write('введите радиус окружности');
readln(R);
C:=2*Pi*R;
S:=Pi*R*R;
writeln('длина окружности=',C:6:2);
writeln('площадь круга=',S:6:2);
End.
Sum := 0;
z := 0;
for i := 1 to 4 do
for j := 1 to 2 do
if A[i,j] > 0 then
begin
sum := sum + A[i,j]
inc(z)
end;
SrArif := sum/z;
В ячейку надо записать число 10
Алгоритм, в котором команды выполняются в зависимости от выполнения или невыполнения некоторого условия, называется ветвлением.
<u>Алгоритм</u>
Берем ряд чисел от 10 до 99 и выводим те из них, которые удовлетворяют условию. Цифры числа получаем путем нахождения целой части деления числа на 10 (старшая цифра) и остатка от такого деления (младшая). Если число кратно 13, то остаток от его целочисленного деления на 13 нулевой.
<u /><u>Программа</u>
<em>( PascalABC.NET 3.2, сборка 1385 от 14.02.2017 )</em>
begin
Range(10,99).Where(n->(sqr(n div 10)+sqr(n mod 10)) mod 13=0).Println
end.
<u>Результат</u>
15 18 23 32 46 47 51 64 69 74 79 81 96 97