consecutiveДАЮ 40 поинтовНапишите код для проекта в ЛАЗАРУС(object pascal) в котором можно вычислить количество двоцифровых чисел среди чисел, первое из которых равно 10, а каждое следующее больше предыдущего на заданое положительное число. (цикл с предусловием)
ответы: 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.
180
MilwaukeeЧтобы ответить необходимо зарегистрироваться.
