Регистрация
romancsosnin
03.05.2020 23:05
Информатика
Есть ответ 👍

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

158
186
Посмотреть ответы 2

Ответы на вопрос:

nacny2016
nacny2016
4,5(24 оценок)

в 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.

балу123456
балу123456
4,7(6 оценок)
Var       n2, i, n: integer; begin       readln(n);       n2 : = 0;       for i : = 1 to n do       begin               n2 : = n2 + 2 * i - 1;               writeln(i, ' ', n2);       end; end.

Популярно: Информатика