урок 13.1 задача 10

Primary tabs

isaac_fan's picture
Submitted by isaac_fan on Tue, 06/14/2022 - 13:56

Forums:

урок 13.1

Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)

program: delal.glebb!!!;
var i,j,l:integer;
begin
  writeln('видите 2 любых числа через enter(целых) ');
  readln(i);
  readln(j);
  repeat
    for l:=1 to i do
    if ((l mod 2)=0) then
      write(l,' ');
    if ((l mod 2)=1) and (l/2 > 0 ) then
      write(l/2,' ');

    j:=j-1;
    writeln();

  until(j=0) ;
  readln();
end.
  • Log in to post comments
  • 778 reads
vedro-compota's picture

vedro-compota

Tue, 06/21/2022 - 21:00

исправить форматирование
+ потом уже разберем почему неправильное решение

_____________
матфак вгу и остальная классика =)

isaac_fan's picture

isaac_fan

Tue, 07/05/2022 - 16:18 

program: delal.glebb!!!;
var i,j,l:integer;
begin
  writeln('видите 2 любых числа через enter(целых) ');
  readln(i);
  readln(j);
  repeat
    for l:=1 to i do
      if ((l mod 2)=0) then
        write(l,' ');
        if ((l mod 2)=1) and (l/2 > 0 ) then
          write(l/2,' ');
 
    j:=j-1;
    writeln();
 
  until(j=0) ;
  readln();
end.