Решение задачи 10 из главы 13.1

Primary tabs

Submitted by testok on Sun, 10/04/2020 - 15:42

Forums:

Решение задачи 10 из главы 13.1

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

Не понятно условие, а именно N/2 символов.

program Project10;
var i, a, b, c: integer;
begin
  b:=1;
  writeln('Vvedite chislo povtoriaushihsia strok:');
  readln(a);
  writeln('Vvedite chislo pravoj granitsy stroki:');
  readln(c);
  while (a >= b) do
  begin
         for i:=1 to c do
               if ((b mod 2) = 0) then
               begin
                 write(i, ' ');//vyvodim vse simvoly
               end
               else if (((i mod 2) = 0) AND (i > 0)) then
                   write(i, ' '); //vyvodim polovinu simvolov(naprimer tolko polozhitelnye chisla)
                   //write(i/2, ' ');//vyvodim polovinu simvolov(naprimer pervye chisla)
                   writeln();
       b:=b+1;
  end;
  readln();
end.
  • Log in to post comments
  • 1491 reads

testok

Fri, 10/23/2020 - 01:53 

program Project10;
var i, a, b, c: integer;
begin
  b:=1;
  writeln('Vvedite chislo povtoriaushihsia strok:');
  readln(a);
  writeln('Vvedite chislo pravoj granitsy stroki:');
  readln(c);
  while (a >= b) do
  begin
         for i:=1 to c do
               if ((b mod 2) = 0) then
               begin
                 write(i, ' ');
               end
               else if (((i mod 2) = 0) AND (i > 0)) then
                   write(i div 2, ' ');
                   writeln();
       b:=b+1;
  end;
  readln();
end.