СРОЧНО!!!ДАЮ 40 БАЛЛОВ
Напишите код для проекта в ЛАЗАРУС(object pascal) в котором можно вычислить количество двоцифровых чисел среди чисел, первое из которых равно 10, а каждое следующее больше предыдущего на заданое положительное число.
(цикл с предусловием)
Напишите код для проекта в ЛАЗАРУС(object pascal) в котором можно вычислить количество двоцифровых чисел среди чисел, первое из которых равно 10, а каждое следующее больше предыдущего на заданое положительное число.
(цикл с предусловием)
More Questions From This User See All
Answers & Comments
Ответ:
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.