Question

Написать программы на языке паскаль Написать программы к задачам: 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

Ответ:

в 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 PrintInformatics;
var
  i: integer;
begin
  for i := 1 to 50 do
    writeln('Информатика');
end.

2. Найти значения квадратов чисел 15, 16, 17, 18, 19, 20 с использованием оператора for:

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

3. Вычислить сумму с использованием оператора while:

pascalCopy code
program CalculateSum;
var
  S, n: integer;
begin
  S := 0;
  n := 1;
  
  while n <= 100 do
  begin
    S := S + n;
    n := n + 1;
  end;
  
  writeln('Сумма чисел от 1 до 100 равна ', S);
end.

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

pascalCopy code
program CountSegments;
var
  i: integer;
  L: real;
begin
  i := 0;
  L := 0;
  
  repeat
    L := L + 1.5;
    i := i + 1;
  until L >= 20;
  
  writeln('Количество отрезков длиной 1.5 м в бруске длиной 20 м: ', i);
end.

Надеюсь, эти программы помогут вам!