Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Распечатать анкетные данные студентов, получивших за все время обучения одну оценку 3, остальные 4 и 5. https://www.cyberforum.ru/ pascal/ thread136167.html Помогите с заданием.. Распечатать анкетные данные студентов, получивших за все время обучения одну оценку 3, остальные 4 и 5.	Pascal Pascal + Assembler = Перемещение с мышкой? :) условие дан квадрат 100х100 , и мне нужно его переместить по нажатию на него левой клавишей мышки. Нужно чтобы он следовал за мышкой до тех пор пока я его не "отпущу"... проблема: квадрат не хочет двигатся + мышка "работает" только на верхнюю половину екрана, ниже не опускается. (F1! NEED HELP):wall: uses graph,crt,dos; var coordx,coordy:integer; x,y,r:integer; gd,gm:integer;
Pascal Дана последовательность из 10 чисел.Вывести на экран одной строкой числа в интервале от 3.5 до 4.0 https://www.cyberforum.ru/ pascal/ thread136161.html Дана последовательность из 10 чисел.Вывести на экран одной строкой числа в интревале от 3.5 до 4.0, предшествующих первому отрицательному в последовательности чисел. я нашел подобную задачу, но она не до конца удовлетворяет условию program posledovatelnost; var i: integer; m: real; begin	Pascal рекурсивная программа Помогите пожалуйста с решением: 1) Используя команды write(x) лишь при х=0..9 написать рекурсивную программу печати десятичной записи целого номинального числа n. 2) Вывести на печать все натуральные чила, меньшие заданного N, сумма квадратов цифр которых кратна 7. Заранее спасибо. https://www.cyberforum.ru/ pascal/ thread136160.html
Допоможіть написати Pascal Дуже потрібно вашу допомогу!!!!!!!! Завдання: Напишісь схему алгоритму і програму.Дано масив А(4,3). ЗНАЙТИ МІНІМАЛЬНИЙ ЕЛЕМЕНТ ВСІХ СТРІЧОК. БУДЬ ЛАСОЧКА.....НАПЕРЕД ДУЖЕ ВДЯЧНА...=))	Pascal отвертка, лопата и тригонометрическая функция любая нужно нарисовать в паскале 3 отдельных программы лопату отвертку и любую тригонометрическую функцию https://www.cyberforum.ru/ pascal/ thread136150.html
Pascal Подпрограммы функции https://www.cyberforum.ru/ pascal/ thread136149.html Вычислить значение данного выражения, используя подпрограмму-функцию.	Строки. вывести слова в алфавитном порядке Pascal Дана последовательность слов от 1 до 30,в каждом из которых от 1 до 5 латинских букв. Между соседними словами запятая, за последним словом точка. Напечатать все слова в алфавитном порядке. пожалуйста помогите кто чем сможет -.-
Pascal Структурированные типы данных. Записи Помогите плз решить задачу: Структура записи: номер телефона; дата разговора; тип разговора (городской, междугородний); длительность разговора; Задание: Определить общую стоимость переговоров в заданном месяце для заданного телефона. https://www.cyberforum.ru/ pascal/ thread136126.html	Pascal Простые и составные числа https://www.cyberforum.ru/ pascal/ thread136125.html Составить программу отыскания наименьшего h, при котором число h2+h+41 является составным.(Составное число-число, у которого есть делители кроме него самого и единицы)
Pascal Получить внутренее представление целых чисел Получить внутренее представление целых чисел: 16,32,32,75,-2,-25-100 в 2-х байтовой яйчейке. Какое максимальное положительное и минимальное отрицательное числа можно записать в эту яйчейку?	Pascal Кол-во точек с целочисленными координатами Здравствуйте! Помогите с задачей, нужно до завтра, :gsorry: Вычислите n кол-во точек с целочисленными координатами, попадающих в круг радиуса R с центром в начале координат. Заранее спасибо !:gpardon: https://www.cyberforum.ru/ pascal/ thread136122.html

zhargal

0 / 0 / 0

Регистрация: 26.05.2010

Сообщений: 3

Найти сумму первых n целых положительных четных целых чисел - Pascal - Ответ 755870

26.05.2010, 18:34. Показов 13342. Ответов 3

Метки (Все метки)

Студворк — интернет-сервис помощи студентам

Написать программу, которая вычисляет сумму первых n целых положительных четных целых чисел. Количество суммируемых чисел должно вводиться во время работы программы. Ниже приведен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полу¬жирным шрифтом).
Вычисление суммы четных положительных чисел.
Введите количество суммируемых чисел и нажмите <Enter>--> 12
Сумма первых 12 положительных четных чисел равна 156

___________________________________________________

C++

#include <iostream> 
using namespace std;
int main() 
{
        setlocale( LC_ALL,"Russian" );
 
        int n=0;
        int k=0;
        int b=0;
        int s=0;
        cout<<"Ведите количиство чисел:";
        cin>>n;
        
                while (k<=n){
                        s+=b;
                        b+=2;
                        k++;
                }
        cout<<s;
                system ("pause");
        return 0;
}

Помогите пожалуйста, перевести программку на Паскаль

Вернуться к обсуждению:
Найти сумму первых n целых положительных четных целых чисел Pascal

Следующий ответ

Лучшие ответы (1)

Сообщение: #756193

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.05.2010, 18:34

Готовые ответы и решения:

Вычислить сумму заданного количества первых целых положительных четных чисел
Составить алгоритм и написать программу вычисления суммы первых целых положительных четных чисел....

Составить Алгоритм для вычисления суммы первых n целых положительных четных чисел
Составить Алгоритм (тестовое описание ,и написать метод решения) для вычисления суммы первых n...

В массиве K[m][n] целых чисел найти количество положительных четных чисел
В массиве K целых чисел найти количество положительных четных чисел.

Begin108. Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести сумму всех положительных четных чисел из данного набора. Если тре
Begin108. Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести сумму всех...

	26.05.2010, 18:34

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.05.2010, 18:34

Помогаю со студенческими работами здесь

Найти сумму целых положительных чисел
1)Найти сумму целых положительных чисел из промежутка от а до б кратное четырём. Помогите...

Найти сумму целых положительных чисел
Найти сумму целых положительных чисел,больших 20 меньших 100 и кратным 3.Что то не получается(

Найти сумму четных элементов массивов целых чисел
Найти сумму четных элементов массивов целых чисел

Найти сумму четных элементов массива целых чисел
найти сумму четных элементов массивацелых чисел. Размерность массива - 20.Заполнение массива...

Наверх