Вот держи !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017// Внимание! Если программа не работает, обновите версию!
ответ на данный вопрос будет:а
var r:real;
begin
write ('Введите радиус круга: ');
read(r);
writeln ('Площадь круга равна: ', 3.14*sqr(r):0:3);
writeln ('Длина окружности равна: ', 2*3.14*r:0:3);
end.
Ответ:
Основание = 18
25₁₈ = 5*18⁰ + 2*18¹ = 41₁₀
Объяснение:
25₆ = 5*6⁰ + 2*6¹ = 17₁₀
25₇ = 5*7⁰ + 2*7¹ = 19₁₀
25₈ = 5*8⁰ + 2*8¹ = 21₁₀
25₉ = 5*9⁰ + 2*9¹ = 23₁₀
25₁₁ = 5*11⁰ + 2*11¹ = 27₁₀
25₁₂ = 5*12⁰ + 2*12¹ = 29₁₀
25₁₃ = 5*13⁰ + 2*13¹ = 31₁₀
25₁₄ = 5*14⁰ + 2*14¹ = 33₁₀
25₁₆ = 5*16⁰ + 2*16¹ = 37₁₀
25₁₇ = 5*17⁰ + 2*17¹ = 39₁₀
25₁₈ = 5*18⁰ + 2*18¹ = 41₁₀
25₁₉ = 5*19⁰ + 2*19¹ = 43₁₀
25₂₀ = 5*20⁰ + 2*20¹ = 45₁₀
25₂₁ = 5*21⁰ + 2*21¹ = 47₁₀
25₂₂ = 5*22⁰ + 2*22¹ = 49₁₀
25₂₃ = 5*23⁰ + 2*23¹ = 51₁₀
25₂₄ = 5*24⁰ + 2*24¹ = 53₁₀
25₂₅ = 5*25⁰ + 2*25¹ = 55₁₀
1.
var k:integer;
p,p1:string;
begin
k:=5;
write ('Введите пароль: ');
readln(p);
while k>=1 do
begin
write ('Подтвердите пароль: ');
readln(p1);
if p=p1 then
begin
writeln ('Вход в систему разрешен');
k:=0
end
else
k:=k-1
end
end.
2.
var a,s:integer;
begin
write ('Введите число: ');
readln(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
write ('Сумма цифр: ',s);
end.