Информатика, опубликовано 2018-08-22 22:22:06 by Гость
Помогите , пожалуйста, написать программу на паскале ! :))) 1 1 3 1 3 5 1 3 5 7 1 3 5 7 9 нужно вывести числа в таком порядке ( в паскале)
Ответ оставил Гость
Var
a,b,i,i2:integer;
Begin
Readln(a);
b:=1;
for i:=1 to a do begin
if b mod 2 = 0 then b:=b+1;
for i2:=1 to b do if i2 mod 2 0 then Write(i2, );
b:=b+1;
Writeln();
end;
End.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на