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