Question

Паскаль Задача 1Вывести на экран все четные числа от 1 до 20.Задача 2. Маше надо решить 100 примеров. Она решила, что в первый день решит - 1 пример, во второй - 2, в третий - 3 и так далее. Сколько дней Маша будет решать примеры?​

Answer 1

Задача 1:

var

 m, n: integer;

begin

 writeln('Все четные числа: ');

 repeat

   n := 1;

   m := 20;

 until m >= n;

 while m >= n do

 begin

   if n mod 2 = 0 then write(n, ' ');

   n := n + 1;

 end;

end.

Результат:

Все четные числа:  

2 4 6 8 10 12 14 16 18 20

Задача 2:

var p, sum: integer;

Begin

sum := 0;

p:=1;

while sum<=100 do begin

 sum := sum+p;

 p := p+1;

end;  

writeln ('Все задачи Маша решит за ', p, ' дней');

end.

Результат:

Все задачи Маша решит за 15 дней

Answer 2

Для выполнения задач в Pascal, вы можете использовать следующий код:

Задача 1 (вывести четные числа от 1 до 20):

pascalCopy code
program EvenNumbers;
var
  i: integer;
begin
  for i := 2 to 20 step 2 do
    writeln(i);
end.

Задача 2 (определить, сколько дней Маша будет решать примеры):

pascalCopy code
program MashaProblems;
var
  totalProblems, day, problemsSolved: integer;
begin
  totalProblems := 100;
  problemsSolved := 0;
  day := 1;

  while problemsSolved < totalProblems do
  begin
    problemsSolved := problemsSolved + day;
    if problemsSolved >= totalProblems then
      break;
    day := day + 1;
  end;

  writeln('Маша будет решать примеры ', day, ' дней.');
end.

Этот код сначала определяет, сколько всего примеров Маша должна решить (100) и затем увеличивает количество решенных примеров в каждый день, начиная с 1 примера в первый день, 2 примеров во второй и так далее. Когда общее количество решенных примеров достигнет или превысит 100, программа выходит из цикла и выводит количество дней, которые Маша будет решать примеры.