дядя22323
11.03.2021 15:42

Задание 1. Тестирование готовой линейной программы. 1. Запустите программу Раsса1 ABC.
2. Откройте готовую программу, для этого выполните команды: Файл-Открыть в предложенном списке программ выберите файл Произведение а и в.pas
3. Перед вами появится программа, позволяющая умножить два целых числа.
4. Запустите ее на выполнение, для этого Программа-Выполнить. На экране появится сообщение: Введите два числа. Курсор мигает в следующей строке, введите два любых числа и нажмите Еntег.
5. Просмотрите результат выполнения программы.

Задание 2.
Измените исходную программу, чтобы она находила сумму двух чисел.
Сохраните программу нажав Файл-Сохранить как под названием Задание2_Ковальков
Задание 3.
Измените исходную программу, чтобы она находила частное двух чисел.
Сохраните программу нажав Файл-Сохранить как под названием Задание3_Ковальков
Задание 4.
Измените исходную программу, чтобы она находила сумму четы¬рех чисел.
Сохраните программу нажав Файл-Сохранить как под названием Задание4_Ковальков
Составление простейших программ
Задание 5.
Составьте программу нахождения значения выражения (а-(d+21)*2)*(с-7*к), где значения переменных а, d, с и к вводятся с клавиатуры (результат выполнения программы покажите преподавателю). Сохраните программу нажав Файл-Сохранить как под названием Задание5_Ковальков

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
islamghj
10.05.2020 16:27
№1

var sum, i: integer;
begin
sum := 0;
for i := 1 to 100 do
sum := sum + i;
writeln('Сумма всех чисел от 1 до 100: ', sum);
end.

№2

var p, i: integer;
begin
p := 1;
for i := 1 to 10 do p := p * i;
writeln('Произведение всех чисел от 1 до 10: ', p);
end.

№3

У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"

var A, i, k, max: integer;
begin
i := 3;
max := 100;
for k := 1 to max do begin
A := A + i;write( A, ' ');
end;
end.

№4

var sum, x: real;
a: array[1..10] of real;
i: integer;
begin
sum := 0;
for i := 1 to 10 do begin
write('Введите ', i, ' число: ');
readln(a[i]);
sum := sum + a[i];
end;

writeln('Сумма введенных чисел: ', sum);
end.
0,0(0 оценок)
Ответ:
AsterXML
07.06.2020 13:07

Человеческое общество по мере своего развития этапы овладения веществом, затем энергией и, наконец, информацией. В первобытно-общинном, рабовладельческом и феодальном обществах (в основе существования которых лежало ремесло) деятельность общества в целом и каждого человека в отдельности была направлена, в первую очередь, на овладение веществом.

На заре цивилизации (десятки тысяч лет до н. э.) люди научились изготавливать орудия труда и охоты (каменный топор, стрелы и так далее), в античности появились первые механизмы (рычаг и др.) и средства передвижения (колесницы, корабли), в средние века были изобретены первые сложные орудия труда и механизмы (ткацкий станок, часы).

Овладение энергией находилось в этот период на начальной ступени, в качестве источников энергии использовались Солнце, вода, огонь, ветер и мускульная сила человека.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота