Задача 7 Урок 11

Primary tabs

Submitted by Neoanthropus on Thu, 06/09/2022 - 00:04

Forums:

Задача 7 Урок 11:

Пользователь вводит целые числа, в ответ выводите символ #. Если введенное пользователем число равно 22, то завершите цикл не выводя ничего в ответ. Решите эту задачу 2-мя способами:
С использованием if()
С использованием if() и break;

Решение c использованием if():

 var a:integer;
begin
  a := 1;
  while (a <> 22) do
  begin
    writeln('vvedite celoe chislo: ');
    readln(a);
    writeln('#');
  end;
  readln();
end.

С использованием if() и break:

var a:integer;
begin
  a := 1;
  while (a <> 22) do
  begin
    writeln('vvedite celoe chislo: ');
    readln(a);
    if (a = 22) then
      break
    else
      writeln('#');
  end;
  readln();
end.

Консоль:

vvedite celoe chislo:
55
#
vvedite celoe chislo:
22
  • Log in to post comments
  • 759 reads
vedro-compota's picture

vedro-compota

Wed, 07/13/2022 - 20:40 

var a:integer;
begin
  a := 1;
  while (a <> 22) do
  begin
    writeln('vvedite celoe chislo: ');
    readln(a);
    writeln('#');
  end;
  readln();
end.

и где здесь IF?

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

Neoanthropus

Tue, 07/19/2022 - 23:22

С использованием if

var a:integer;
begin
  a := 1;
  while (a <> 22) do
  begin
    writeln('vvedite celoe chislo: ');
    readln(a);
    if (a <> 22) then
      writeln('#');
  end;
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 08/03/2022 - 20:34

засчитано

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