не игнорьте. Это про Free Pascal. Мне ПО 12 мая нужно сделать этот тест. А нам ничего по программированию не объяснили.

287

482

Посмотреть ответы 1

Ответы на вопрос:

dianapanova2004

Информатика

4,6(30 оценок)

Var a,k: integer; begin k: =0; repeat readln(a); if (a< 0)and(a mod 7 = 0) then k: =k+1; until a=0; writeln('k = ',k); end. если имеется ввиду, когда кол-во километров, пройденных за день превысит k, то вот: var a,k,n: real; begin write('k = '); readln(k); a: =10; n: =0; repeat n: =n+1; a: =a*1.1 until a> k; writeln(n) end. если имеется ввиду, когда суммарное количество пройденных километров превысит k, то вот: var a,k,n,s: real; begin write('k = '); readln(k); a: =10; n: =0; s: =a; repeat n: =n+1; a: =a*1.1; s: =s+a; until s> k; writeln(n) end.