Question

(100 баллов) Написать программы на языке паскаль Написать программы к задачам: 1. Напечать 50 раз слово «Информатика», использовать оператор for. 2. Найти значения квадратов чисел: 15, 16, 17, 18, 19, 20, использовать оператор for. 3. Вычислить сумму Первоначально присвоить S: = 0, n: = 1 (число, которое находится в знаменателе), использовать оператор while. 4. Необходимо подсчитать целое кол-во отрезков длиной 1,5 м получающихся из бруска длиной 20 м. Первоначально присвоить i:=0 - кол-во отрезков, L:=0 - суммарная длина отрезков. Использовать оператор repeat.

Answer 1

Ответ:

pascal. В 3 задании не понятно, какая формула для суммы...

Объяснение:

program zadanie_1;

var i: integer;

begin

 for i:=1 to 50 do

   writeln('Информатика');  

end.

program zadanie_2;

var i: integer;

begin

 for i:=15 to 20 do

   writeln(i,'^2 = ', sqr(i));  

end.

program zadanie_4;

var i: integer;

   L: real;

begin

 i := 0;

 L := 0;

 repeat

   L := L + 1.5;

   i := i + 1;

 until L+1.5>=20;

 writeln('Получится ',i,' отрезков длиной ',L,' метров.');

end.

Answer 2

Конечно, вот примеры программ на языке Паскаль для каждой из задач:

Задача 1: Напечатать 50 раз слово «Информатика», используя оператор for

pascalCopy code
program Task1;

var
  i: Integer;

begin
  for i := 1 to 50 do
    writeln('Информатика');
end.

Задача 2: Найти значения квадратов чисел 15-20, используя оператор for

pascalCopy code
program Task2;

var
  i: Integer;

begin
  for i := 15 to 20 do
    writeln('Квадрат числа ', i, ' равен ', i * i);
end.

Задача 3: Вычислить сумму, используя оператор while

pascalCopy code
program Task3;

var
  S, n: Real;

begin
  S := 0;
  n := 1;
  while n <= 20 do
  begin
    S := S + 1 / n;
    n := n + 1;
  end;
  writeln('Сумма равна ', S:0:2);
end.

Задача 4: Подсчитать количество отрезков длиной 1,5 м из бруска длиной 20 м, используя оператор repeat

pascalCopy code
program Task4;

var
  i: Integer;
  L: Real;

begin
  i := 0;
  L := 0;
  repeat
    L := L + 1.5;
    i := i + 1;
  until L >= 20;
  writeln('Количество отрезков: ', i);
end.

Просто скопируйте каждый из приведенных выше фрагментов кода и вставьте их в среду разработки Паскаль для выполнения. Не забудьте, что синтаксис и организация программ могут немного отличаться в зависимости от используемой версии компилятора и среды разработки.