Question

ПАСКАЛЬ! ПОМОГИТЕ! С циклом while (без массива) 1. Известен возраст всех учеников класса. Определить самого старшего, если признак окончания ввода - 0. 2.Дана последовательность целых чисел, признак окончания которой - 0. Найти сумму положительных элементов, стоящих на нечетных местах. (что значит "стоящих на нечетных местах" ???)

Answer 1

1)var a,b:integer;

begin

a:=-1;

while a<>0 do

begin

read(a);

if a>b then b :=a;

end;

write('возраст самого старшего ',b);

end.

2)

var a,b,c:integer;

begin

a:=-1;

while a<>0 do

begin

read(a);

c:=c+1;

if (a>0)and(c mod 2=1) then b :=a;

end;

write('сумма положительных элементов , стоящих на нечетных местах равна ',b);

end.

Answer 2

Конечно, я могу помочь вам с этими задачами на языке Pascal. Вот решения для каждой из них:

1. Определение самого старшего ученика:

pascalCopy code
program MaxAge;
var
  age, maxAge: Integer;
begin
  maxAge := 0;
  writeln('Введите возраст учеников (для завершения введите 0):');
  readln(age);
  
  while age <> 0 do
  begin
    if age > maxAge then
      maxAge := age;
    readln(age);
  end;

  writeln('Самый старший ученик имеет возраст: ', maxAge);
end.

2. Нахождение суммы положительных элементов, стоящих на нечетных местах:

В данной задаче "стоящие на нечетных местах" означает элементы на позициях 1, 3, 5 и т.д. в последовательности чисел.

pascalCopy code
program SumPositiveOddPositions;
var
  num, sum: Integer;
  position: Integer;
begin
  sum := 0;
  position := 1;
  
  writeln('Введите последовательность целых чисел (для завершения введите 0):');
  readln(num);
  
  while num <> 0 do
  begin
    if (position mod 2 = 1) and (num > 0) then
      sum := sum + num;
    position := position + 1;
    readln(num);
  end;

  writeln('Сумма положительных элементов на нечетных позициях: ', sum);
end.

Надеюсь, это поможет вам решить данные задачи в Pascal с использованием цикла while. Если у вас возникнут еще вопросы, пожалуйста, дайте мне знать.