урок 12.1 задача 3 форматирование

Primary tabs

isaac_fan's picture
Submitted by isaac_fan on Tue, 05/24/2022 - 12:55

Forums:

урок 12.1

Сдавать решение не обязательно:
Исправьте форматирование кода:

var f: integer;
begin
  writeln('Введите целое число');
  readln(f);
  if f < 25  then
    begin
      repeat
      if f mod 23 = 0 then
       begin
          f := f - 1;
          writeln(f);
       end else
      f := f - 2;
        until (f < 1);
    end
  else
   writeln('ошибка');
 
    writeln('Конец!');
  readln();
end.

решение

var f: integer;
begin
  writeln('Введите целое число');
  readln(f);
  if f < 25  then
    begin
      repeat
        if f mod 23 = 0 then
          begin
            f := f - 1;
            writeln(f);
           end else
             f := f - 2;
       until (f < 1);
     end
  else
   writeln('ошибка');
 
    writeln('Конец!');
  readln();
end.
  • Log in to post comments
  • 2893 reads
vedro-compota's picture

vedro-compota

Tue, 06/07/2022 - 20:06

исправить -- если непонятно что править, см. разбор

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

isaac_fan's picture

isaac_fan

Sat, 06/11/2022 - 14:15 

var f: integer;
begin
  writeln('Введите целое число');
  readln(f);
  if f < 25  then
  begin
    repeat
      if f mod 23 = 0 then
        begin
          f := f - 1;
          writeln(f);
         end else
           f := f - 2;
     until (f < 1);
   end
  else
    writeln('ошибка');
  
    writeln('Конец!');
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 06/21/2022 - 20:45

есть проблемы, перепроверь

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

isaac_fan's picture

isaac_fan

Tue, 07/05/2022 - 15:30 

var f: integer;
begin
  writeln('Введите целое число');
  readln(f);
  if f < 25  then
    repeat
      if f mod 23 = 0 then
      begin
          f := f - 1;
          writeln(f);
      end else
           f := f - 2;
   until (f < 1);
  else
    writeln('ошибка');
   
  writeln('Конец!');
  readln();
end.
vedro-compota's picture

vedro-compota

Thu, 07/21/2022 - 19:09

  1. неправильно, см. видео-разбор в уроке
  2. поправить ссылку на урок (перед условием)

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

isaac_fan's picture

isaac_fan

Mon, 07/25/2022 - 13:06 

var f: integer;
begin
  writeln('Введите целое число');
  readln(f);
  if f < 25  then
    repeat
      if f mod 23 = 0 then
      begin
        f := f - 1;
        writeln(f);
       end else
       f := f - 2;
    until (f < 1);
    else
      writeln('ошибка');
    
  writeln('Конец!');
  readln();
end.