Решите пожалуйста задачу по информатике.
Натуральные числа a,b,n заданы пользователем. Вывести на экран числа отрезка a,b с шагом n.
Пример: 2,20,3
2,5,8,11,14,17,20
Ответы на вопрос
Ответил VipPhoenixVip
0
var a,b,n:integer;
Begin
write('Введите начало интервала (a): '); readln(a);
write('Введите конец интервала (b): '); readln(b);
write('Введите шаг (n): '); readln(n);
a := a - n;
while (true) do Begin
a := a + n;
write(''+a);
if(a >= b) then break;
write(',');
End;
End.
Приложения:
Ответил dsidorin19
0
А слово true заменить можно?
Ответил VipPhoenixVip
0
Можно. Удали строчку if(a >= b) then break; а вместо true поставь a < b
Ответил VipPhoenixVip
0
Результат вроде такой же будет
Ответил MrMiner1
0
я бы вам посоветовал писать не write(''+ a);,а write('',a);. А в вашем случае write(a); т.к. вы записью '' не добавляете пробела.
Ответил VipPhoenixVip
0
ну такое.. я ж не программист )
Ответил 13nisa13
0
var a,b,n,i:integer;
begin
write('Введите a,b,n: ');
readln(a,b,n);
repeat
write(a,' ');
a:=a+n
until a>b
end.
или
var a,b,n,i:integer;
begin
write('Введите a,b,n: ');
readln(a,b,n);
while a<=b do
begin
write(a,' ');
a:=a+n
end
end.
Приложения:
Ответил VipPhoenixVip
0
while a<=b do - почему <= ?
Ответил VipPhoenixVip
0
без б) дошло... ты сначала выводишь потом добавляшь :З
Новые вопросы