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