Var s,p,sum:real; k:integer; begin write('s = '); readln(s); write('p = ');readln(p); k:=0; sum:=s; while sum<1000000 do begin k:=k+1; sum:=sum*(100+p)/100; end; writeln('k = ',k); end.
var a: array[1..100] of real; i, n: integer; min, max: real; k: integer;
begin {ввод массива} if handsfree then n := random(20) + 5 else begin write('n = '); readln(n); end;
writeln('Данные массива:'); for i := 1 to n do begin if handsfree then begin a[i] := random(100); write(a[i], ' '); end else readln(a[i]); end; writeln();
{подсчет элементов} k := 0; for i := 1 to n do if a[i] > 5 then k := k + 1; writeln(k); end.
X увеличивается в цикле с 1 до 4, каждый раз на 1. y каждый раз увеличивается в 2 раза, начиная с 1 и до 2^4 = 16. 1) Тело цикла исполнится 4 раза. 2) x примет значение 5. 3) y примет значение 16. 4) Если написать x <= 5, то тело цикла исполнится 5 раз. На выходе будет x = 6, y = 32. 5) Если написать x >= 5, то тело цикла не будет исполнено ни разу, потому что условие сразу не выполняется. 6) Если написать x > 0, то программа зациклится. Цикл будет исполняться бесконечно, потому что x всегда > 0. 7) Если убрать команду x:=x+1, то программа тоже зациклится. Выхода не будет, потому что x всегда остается равным 1 < 5. 8) Если написать команду x:=x+2, то тело цикла исполнится 2 раза: при x := 1 и при x := 3. На третий раз станет x = 5 и будет выход из цикла. 9) Если написать команду x:=x-1, то программа зациклится. Выхода не будет, потому что x будет уменьшаться и всегда останется < 5.
begin
write('s = '); readln(s);
write('p = ');readln(p);
k:=0;
sum:=s;
while sum<1000000 do
begin
k:=k+1;
sum:=sum*(100+p)/100;
end;
writeln('k = ',k);
end.
Пример:
s = 400000
p = 10
k = 10