составить программу:
Получить первые k членов арифметической прогрессии с первым членом,равным сорока ,и разностью минус 5.
Ответы на вопрос
Ответил 0CeRBeR0
0
PascalABC
beginvar x:=40;var k:integer;write('Введите k. Вы ввели ');read(k);write(x);for var i:=1 to k dobeginx+=5;write(' ',x);end;end.
beginvar x:=40;var k:integer;write('Введите k. Вы ввели ');read(k);write(x);for var i:=1 to k dobeginx+=5;write(' ',x);end;end.
Ответил 0CeRBeR0
0
begin
var x:=40;
var k:integer;
write('Введите k. Вы ввели ');
read(k);
write(k);
for var i:=1 to k do
begin
k+=5;
write('',k);
end;
end.
var x:=40;
var k:integer;
write('Введите k. Вы ввели ');
read(k);
write(k);
for var i:=1 to k do
begin
k+=5;
write('',k);
end;
end.
Ответил 0CeRBeR0
0
Почему-то он ввел без новых строк
Ответил катюша32454
0
k+=5; что это означает?
Новые вопросы