var
s:real;
begin
Write('Площадь окружности: '); Read(s);
Writeln('Радиус окружности равен ',sqrt(s/Pi):0:5)
end.
Var n, i: integer;
begin
readln(n);
for i := 1 to n do
if (i mod 2 = 1) then
writeln(i);
<span>end.</span>
Если число в любой системе счисления оканчивается нулем, значит оно кратно основанию системы счисления, т.е. делится на основание системы без остатка. Число, которое одновременно делится на два простых числа 3 и 5 равно произведению этих чисел,т .е. 3х5=15.
Переведем для проверки число 15 в троичную и пятиричную системы.
Ответ: 15(10)=30(5)=120(3)
3*3 = 9
9*9 = 81
зачеркиваем 1, получается 8
8*8 = 64
зачеркиваем 1, получается 6, что и нужно было сделать.
Ответ: 22121
Открываете раздел помощи по языку набираете ключевое слово: string. Смотрите все процедуры и функции, для работы с переменными типа string
Находите описание функции Pos
<span>function Pos(subs,s: string): integer;
</span>
Возвращает позицию подстроки subs в строке s. Если не
найдена, возвращает 0
Если строка subs входит в строку s, то функция возвращает значение, большее нуля, номер первого символа в сроке s, начиная с которого, строка subs входит в строку s.
Например, subs:='123'; s:='785123456'; k: integer;
k:=Pos(subs,s); значение переменной k = 4;
Второй пример: subs:='123; s:=623145;
k:=Pos(subs,s); k =0; строка subs не входит в строку s