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.