<span>var a,b,c:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
write('Среднее арифметическое=',(a+4*a+16*a) / :0:2);
end<span>.</span></span>
Var ch:integer;beginread(ch);while ch>0 do begin if (ch mod 2)=0 then begin ch:=ch div 2; write(2); end else begin ch:=ch-1; write(1); end; end;end.
смотри эта задача похожа на комбинаторную)
1ый вопрос:
на первом месте есть 3 варианта буквы, на втором тоже 3, на третьем 3
=> всего слов 3 * 3 * 3 = 27
2ой:
1 - ая буква - м, => это как минимум 10-ое слово (т.к. в предыдущих 3 * 3 словах первая - и)
при этом 10 слово - мии => 11 слово - МИМ; 12 cлово - МИР;
3ий:
1-ая буква -Р это как минимум 19 слово (предыдущие 2 * 3 * начинаются на и или м)
19 слово - РИИ => 21 - PИМ
Вариант номер 1:
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
repeat begin
p:=p+(p/10);
a:=a+1;
end;
until p>=20;
writeln('a=',a);
<span>end.
Вариант номер 2:
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
while p<=20 do begin
p:=p+(p/10);
a:=a+1;
end;
writeln('a=',a);
<span>end.</span></span>