Question

ДАЮ 60 БАЛЛОВ!!!!! ПОМОГИТЕ, ПОЖАЛУЙСТА, СЕГОДНЯ ВЫСТАВЛЯЮТ ОЦЕНКИ ЗА ЧЕТВЕРТЬ.МНЕ НУЖНО СЕГОДНЯ!!!!!!!!!!!!!!!!Написать программу на Паскале,используя цикл с постусловием (Repeat-until) для решения задачи. Вычислить сумму всех двухзначных чисел. S=10+2+3+...+99. И ЕЩЕ: Написать программу на Паскале используя цикл с параметром: 1) вычислите произведение первых 10 натуральных чисел 2) вывести на экран степени тройки от 0 степени до 5 например 0 0 1 3 2 9 и т.д.

Answer 1

Ответ:

var

i:byte;

summ:longint;

begin

summ:=1;

for i:=10 to 99 do

summ:=summ+i;

writeln('Cymma=',summ);

end.

Объяснение:

Answer 2

Конечно, я могу помочь вам написать программу на языке Паскаль для выполнения этих задач. Вот два варианта программы, один с циклом "Repeat-until" (постусловие) и другой с циклом с параметром:

Программа с использованием цикла "Repeat-until" для вычисления суммы всех двухзначных чисел:

pascalCopy code
program SumOfTwoDigitNumbers;
var
  i, S: integer;
begin
  S := 0;
  i := 10;
  repeat
    S := S + i;
    i := i + 1;
  until i > 99;
  writeln('Sum of two-digit numbers: ', S);
end.

Программа с использованием цикла с параметром для выполнения двух задач:

pascalCopy code
program LoopExamples;
var
  i, product, powerOfThree: integer;
begin
  // Вычисление произведения первых 10 натуральных чисел
  product := 1;
  for i := 1 to 10 do
  begin
    product := product * i;
  end;
  writeln('Product of first 10 natural numbers: ', product);

  // Вывод степеней тройки от 0 до 5
  for i := 0 to 5 do
  begin
    powerOfThree := 1;
    for j := 1 to i do
    begin
      powerOfThree := powerOfThree * 3;
    end;
    writeln('3^', i, ' = ', powerOfThree);
  end;
end.

Скопируйте соответствующий код в среду разработки для Паскаля и выполните программу. Первая программа вычисляет сумму всех двухзначных чисел, а вторая программа выполняет две задачи: вычисление произведения первых 10 натуральных чисел и вывод степеней тройки от 0 до 5.