Question

СРОЧНО!!!ДАЮ 40 БАЛЛОВ

Напишите код для проекта в ЛАЗАРУС(object pascal) в котором можно вычислить количество двоцифровых чисел среди чисел, первое из которых равно 10, а каждое следующее больше предыдущего на заданое положительное число.
(цикл с предусловием)

Answer 1

Ответ:

var x,k,a: integer;

begin

write('a = ');

readln(a);

x:=10;

k:=0 ;

while x<100 do

begin

k:=k+1;

x:=x+a

end;

writeln('k = ',k)

end.