Написать программы на языке паскаль
Написать программы к задачам:
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.
анна2170
2
22.05.2020 02:54
9
Другие вопросы по теме Информатика
aajlarov
21.05.2020 14:41
Manasyan85140
21.05.2020 14:41
sofiabogdanova1
21.05.2020 14:41
дашасалищева
15.03.2020 20:04
prostochel4
15.03.2020 20:03
milota5
15.03.2020 20:03
arinaohtova
15.03.2020 20:02
Nilufar777
14.08.2019 22:10
blueocean2016
14.08.2019 22:10
Популярные вопросы
- ЧЕРЧЕНИЕ напишите размеры под цифрами 1,2,3,4 и 5....
2 - С ЛИТЕРАТУРОЙІ Выполните тестовые задания:1. Какой части тела лишился...
2 - найти здесь средства выразительности: ... Эх, тройка! птица тройка,...
3 - M=0,100+\-0,002 кг k=40 H\м X(max)1=0,054 2=0,056 3=0,060 4=0,061...
2 - История Поработайте с картой и выполните задания: 1)Обозначьте на...
2 - До ть будь ласка. Навести факти, якi пiдтверджують зв язок скiфiв...
1 - 1.В чём заключается экологическая опасность отходов Что бы вы могли...
2 - Выберите, в каком ряду неверно записана последовательность различных...
1 - Хлопчик масою 48 кг, стоячи на гладенькому льоду, відштовхнув від...
2 - 18 . Зонд, маса якого дорівнює 0,4 кг і об єм - 0,5 м, починає піднімається...
2
в 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.