сервис вопросов и ответовнайти сумму всех n(1-4)значных чисел кратных k
10-11 класс|
|
Lenaalex
17 сент. 2016 г., 13:18:34 (7 лет назад)
Lama1910
17 сент. 2016 г., 14:51:18 (7 лет назад)
program zadacha;
uses crt;
var n, k: integer;
s: longint;
begin
clrscr;
write ('enter k: ');
readln (k);
s:=0;
for n:=k to 9999 do begin
if n mod k = 0 then
s:=s+n;
end;
writeln ('summa=', s);
readkey;
end.
Ответить
Другие вопросы из категории
Напишите пожалуйста программу в Паскале
x^2 если sinx<0
-x если sin>= 0
Необходимо написать программу на Pascal, которая по указанному Вами году рождения определяет возраст человека.В том случае, если вычисленное
значение окажется меньше 18, то программа выводит на экран сообщение "Учиться" ;если вычисленное значение находится в интервале от 18 до 55, то программа выводит на экран сообщение "Работать" ;если вычисленное значение больше или равно 55, то программа выводит на экран сообщение "Отдыхать"
помогите пожалуйста решить задачи срочно!!
1)Написать программу, которая последовательно спрашивает у пользователя вопросы«Знает ли он Кумир?», «Знает ли он Бейсик?», «Знает ли он Паскаль?», «Знает ли он Си?». Ответыпринимаются в логические переменные. По результатам ответов делается вывод о перспективахсдачи экзамена. Отметка «Отлично» соответствует знанию всех языков, при отметке «Хорошо»допускается пробел в незнании одного языка, отметка «Удовлетворительно» дается при знаниихотя бы двух языков. Использовать логические операции вместо ветвления.
2)Запросить у пользователя произвольное целое число и посчитать количество цифр внем. Результат вывести. Предусмотреть вариант с десятичной записью дробного числа.
3)Написать программу, которая хранить в памяти расположение шахматных фигур.Произвольная конфигурация (без пешек) задается компьютером. Пользователь пытаетсяугадать, где находится заданная фигура при 5 попытках. Вывести результат в случае удачи неудачи.
4)Написать программу, которая заполняет массив случайными числами в интервале[10,200] и подсчитать отдельно число чётных и нечётных элементов.
5)Дано предложение Определить
А) количество слов начинающихся с буквы n
Б)количество слов заканчивающихся буквой р
6)Даны вещественные числа b1 b2 ...b9 Определить среднее арифметическое тех которые больше 10
7)Даны натуральное число m и целые числа х1 х2 ,,,хm Определить сумму тех которые кратны числу n
кто сможет решить все это - кину 200 р на телефон!!! Обещаю!, кидайте на стену номер тел. или в личку!тоолько решите!!!!
Решить в КУМИРЕ:
Читайте также
Даны два целых числа А и В (А<В). Найти сумму всех целых чисел от А до В включительно Входные данные: ввести два целых числа А,В (1<=A,
B<=100).
Выходнфе данные: вывести сумму всех целых чисел от А до В включительно.
Можно, пожалуйста, с объяснением.
составить программу 1)найти сумму всех элементов массива (1до10) random. 2)сформировать массив из положительных и отрицательных элементов
от -10 до 30.найти кол-во положит и отриц элементов.найти сумму положит и произведение отриц.
1) Задано положительное число A. Найти сумм всех четных чисел в интервале от 1 до A. Число А может иметь дробную часть.
2) Задано целое положительное число А и В. Найти квадратные корни целых чисел в интервале от А до В. Замечание: A<B
Дан одномерный массив целых чисел. найти сумму всех четных элементов массива, стоящих на четных местах (имеющих четные номера). Массив задается с помощью
генератора случайных чисел. если можно с блок-схемой
Составить блок-схему к задаче:
Найти сумму всех n-значных чисел (1 ≤ n ≤ 4), n вводится
Вы находитесь на странице вопроса "найти сумму всех n(1-4)значных чисел кратных k", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.