сервис вопросов и ответовНаписать программу для ввода 10 чисел с клавиатуры,не превышающих 1000 и кратных 5. Найти сумму этих чисел. Срочнооо нада!!!!!!!!!!!!!!!!!!
5-9 класс|
|
Ylia79
01 авг. 2013 г., 4:42:07 (10 лет назад)
Александра11111
01 авг. 2013 г., 7:05:36 (10 лет назад)
var
i,x,s:integer;
f:boolean;
begin
for i:=1 to 10 do
begin
f:=false;
repeat
writeln('Введите число:');
readln(x);
if (x<=1000) and (x mod 5=0) then
begin
s:=s+x;
f:=true;
end
else writeln('Число не удовлетворяет требованиям.');
until f;
end;
writeln('Сумма равна : ',s);
end.
Astankoffnikit
01 авг. 2013 г., 9:10:11 (10 лет назад)
var a,b: integer;var M: array[1..10] of integer;begina:=1;while a<>1000 do beginreadln(a);b:=b+1;if a mod 10 = 5 then M[b]:=a;end;writeln(M[1]+M[2]+M[3]+M[4]+M[5]+M[6]+M[7]+M[8]+M[9]+M[10]);end.
Ответить
Другие вопросы из категории
Световое табло состоит из лампочек. Каждая лампочка может находится в одном из трех состояний(включено, выключено или мегает). Какое наименьшее
количество лампочек должно находится на табло, чтобы с его помощью можно было передать 18 различных сигналов?
Читайте также
Помогите написать программу для Паскаля.
1. Написать программу нахождения произведения n чисел.
Написать программу для определения максимального числа из данных пяти чисел.
Пользователь вводит пять чисел. Программа выводит ответ: "Максимальное число ... ".
Написать программу в "КуМиРе"
составить на Паскале: 1) программу для вычисления суммы ряда S=1+ 1/2+1/3+1/4+..+1/N. Число N вводится с клавиатуры. 2) одноклеточная
амеба каждые 3 часа делиться на 2 клетки. Определить, сколько амеб будет через 3,6,9,12 и 24 часа.
3) дано натуральное числоо N и действительное число Х. Вычислить сумму ряда sin(x)+sin(2x)+sin(3x)+...+sin(Nx).
4) написать программу для вычисления n-ой степени числа А.
помогите, пожалуйста)
1. Даны два различных вещественных числа X и Y. Написать программу, возведения наименьшего из чисел в квадрат, наибольшего – в куб и нахождения среднего
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
Вы находитесь на странице вопроса "Написать программу для ввода 10 чисел с клавиатуры,не превышающих 1000 и кратных 5. Найти сумму этих чисел. Срочнооо нада!!!!!!!!!!!!!!!!!!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.