Question

Очень срочно нужно!!!! Помогите пожалуйста написать программу по информатике 8 класс в паскале. Тема: реализовать пересчёт номеров домов по улице(четной или нечетной, выбор через if), считается, движение начинается с первого/второго дома. Конечный дом указывается. Заранее огромное спасибо!!!

Answer 1

program ll1;

var a, i, sum_ch, sum_nch: integer;

begin

readln(a); //вводишь конечный дом

for i:=1 to a do

if i mod 2 = 0 then

sum_ch:= sum_ch + i;

else

sum_nch + i;

writeln(sum_ch); //сумма четных домов

writeln(sum_nch); //сумма нечётных домов

end.

Answer 2

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

pascalCopy code
program HouseNumbers;

var
  start, endHouse, i: integer;
  isEven: boolean;

begin
  // Ввод данных
  writeln('Введите начальный номер дома: ');
  readln(start);
  writeln('Введите конечный номер дома: ');
  readln(endHouse);
  writeln('Выберите, четные номера (true) или нечетные номера (false): ');
  readln(isEven);

  // Пересчет номеров домов
  writeln('Новые номера домов: ');

  if isEven then
  begin
    // Пересчет четных номеров домов
    if start mod 2 <> 0 then
      start := start + 1;
    for i := start to endHouse step 2 do
      writeln(i);
  end
  else
  begin
    // Пересчет нечетных номеров домов
    if start mod 2 = 0 then
      start := start + 1;
    for i := start to endHouse step 2 do
      writeln(i);
  end;

end.

Программа спрашивает начальный и конечный номера домов, а также выбор между четными и нечетными номерами через переменную isEven. Затем она пересчитывает и выводит новые номера домов в соответствии с выбранным типом номеров. Надеюсь, это поможет! Если у вас есть еще вопросы или что-то еще, с чем я могу помочь, пожалуйста, дайте знать!