Решите пожалуйста задачу по информатике. Натуральные числа a,b,n заданы пользователем....

0 голосов
44 просмотров

Решите пожалуйста задачу по информатике. Натуральные числа a,b,n заданы пользователем. Вывести на экран числа отрезка a,b с шагом n. Пример: 2,20,3 2,5,8,11,14,17,20


Информатика (12 баллов) | 44 просмотров
0

Паскаль?

0

Да, PascalAbc.net

0

сек

Дано ответов: 2
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.


image
(1.4k баллов)
0

Первый end от While

0

второй end - конец программы

0

А что будет если true не писать?

0

Проверь. while (true) - бесконечный цикл, while (a < 10) - конечный цикл, то бишь пока a меньше 10 будет идти повторение иначе конец

0

Еще вопросы?)

0

А слово true заменить можно?

0

Можно. Удали строчку if(a >= b) then break; а вместо true поставь a < b

0

Результат вроде такой же будет

0

я бы вам посоветовал писать не write(''+ a);,а write('',a);. А в вашем случае write(a); т.к. вы записью '' не добавляете пробела.

0

ну такое.. я ж не программист )

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</p>

begin

write(a,'  ');

a:=a+n

end

end.

(1.7k баллов)
0

while a<=b do - почему <= ?

0

без б) дошло... ты сначала выводишь потом добавляшь :З