Ж- полужирный
к- курсив
ч- подчеркивание
Var
a,b:real;
i:integer;
begin
i:=0;
readln(a,b);
while b<a do
begin
a:=a*1.15;
a:=a-b;
i:=i+1;
end;
<span>writeln('План можно выдерживать', i, ' лет' )</span>;
end.
Ответ:
1)точно такое количество букв?
2)планшет
3)процессор
4)ОЗУ
5)шина
Var
n:integer;
Begin
Write('Введите число ');
Readln(n);
if sqr(n) = (4*(sqr(n div 10)*(n div 10)+sqr(n mod 10)*(n mod 10))) then write('Ответ положительный') else write('Ответ отрицательный');
<span>End.</span>