using System;
public class Test
{
public static void Main()
{
double s=100000;
double p;
int k=0;
Console.Write("P = ");
p = double.Parse(Console.ReadLine());
while (s <= 1500000){
s = s+s*p/100.0;
k++;
}
Console.Write("k = {0}, S = {1:0.00}",k,s);
}
}
Пример:
P = 2
k = 137, S = 1507382.72
Var
m,n,i: byte;
begin
writeln ('M=');
writeln ('N=');
readln(m);
readln(n);
for i:=n to m do
if i mod 2=0 then write (i,' ');
readln;
end.
Ответ :11212(C)
1*4=4
4*4=16
16-3=13
13*4=52
52-3=49
1) 7 - изза начального присвоение m
2) 994. 4 соответствует условию, остальные числа лишь максимизируют число
3)
var
N, d, m: longint;
begin
readln(N);
{m := N mod 10; ошибочная строка}
m:=-1; {N mod 10 - может не удовлетворять условию, 0 - может и удовлетворять условию }
while N > 0 do
begin
d := N mod 10;
if d < 5 then
if d > m then m := d;
N := N div 10;
end;
{if m = 0 then ошибочная строка}
if m = -1 then {если в цикле m так не разу и не поменялась}
writeln('NO')
else writeln(m);
end.