Предмет:
ИнформатикаАвтор:
rose42Автор:
shorty0vzaАвтор:
emmanuelcrawfordАвтор:
araceli5Автор:
elvisfq1eАвтор:
dulce4yrxАвтор:
alisa51Автор:
zaidenfrohvar 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.
Автор:
tyreevar 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.
Автор:
edwin388Добавить свой ответ
Предмет:
МатематикаАвтор:
mosesОтветов:
Смотреть
Предмет:
Русский языкАвтор:
benpriceОтветов:
Смотреть
Предмет:
МатематикаАвтор:
camilorussellОтветов:
Смотреть
Предмет:
Английский языкАвтор:
cherryiei4Ответов:
Смотреть