сервис вопросов и ответовНапишите программу, которая вычислит еженедельный доход предприятия. Если дано описание:
10-11 класс|
|
type Zi = (L, Ma, Mi, J, V, S, D) ;
Venit = array [Zi] of real ;
var v : Venit;
Компонеты переменной v представляют собой ежедневный доход предприятия.
IksanovaFiona
11 авг. 2013 г., 20:44:10 (10 лет назад)
Alenchy
11 авг. 2013 г., 22:54:21 (10 лет назад)
program Venit;
type zi=(L,Ma,Mi,J,V,S,D); Venit=array[zi] of real;
var v:Venit; i:integer; suma:real;
BEGIN
for i:=1 to 7 do
begin
writeln('Dati venitul pentru ziua ',i); readln(v[i]);
end;
{Acum sumam toate numerele si aflam venitul total:}
for i:=1 to 7 do
suma=:=suma+v[i];
writeln('Intreprinderea are ',suma:0:3,'$ pe saptamina'); readln;
END.
______
suma:0:3 - pentru a afisa numarul in modul dat: 13.235
Ответить
Другие вопросы из категории
В "лесной школе" 14 учеников: лисята волчата и медвежата. Меньше всего в школе волчат,а больше всего- лисят:их на 5 больше,чем волчат. Сколько в "лесной
школе"лисят,волчат и медвежат.
Привет всем. Помогите написать программы на паскале.
Сами задачи во вложении.
Дано n, . Вычислить: a1 - a2 + a3- …+ (-1)n+1 an. Дано n, . Получить последовательность , где b1
= a1, b2 = a1+ a2, …, bn = a1+ an. Дано n. Получить последовательность , где Даны n,. Получить сумму и количество тех элементов данной последовательности, которые кратны 5 и не кратны 4. Даны n,. Вычислить Даны n и . Получить a1, a2, …, an , 2a1, 3a2, …, (n + 1)n an. Выяснить образуют ли они возрастающую последовательность.
Читайте также
Напишите программу, которая вычисляет НОД двух чисел. Используйте функцию.
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
1)Проверка условия и ветвление в алгоритме.Напишите программу которая анализирует введённое с клавиатуры число и выдает на экран:
а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное.
2)Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.
№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от 0 до 100. Напишите программу, которая позволит найти сумму
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
1.Напишите программу, которая в последовательности натуральных чисел
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.
№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от -100 до 100. Напишите программу, которая позволит
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
Вы находитесь на странице вопроса "Напишите программу, которая вычислит еженедельный доход предприятия. Если дано описание:", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.