сервис вопросов и ответовНа паскале написать программу которая в последовательность чисел( натуральных), определяет сумму всех чисел кратных 4 и оканчивающихся на 6. Программа
5-9 класс|
|
получает на вход нат числа, признаком окончания ввода явл число 0.
Могу решить и сам, только нельзя на компе проверить. Так что надеюсь на вас.
оlyyy
11 нояб. 2013 г., 6:20:45 (10 лет назад)
Pandalittle
11 нояб. 2013 г., 7:07:05 (10 лет назад)
А вот и код ----------------------------------
Fed19
11 нояб. 2013 г., 9:28:04 (10 лет назад)
var
a: integer;
s: longint;
begin
s := 0;
a := -32768;
while a <> 0 do
begin
readln(a);
if a <> 0 then
if a mod 4 = 0 then
if a mod 10 = 6 then s := s + a
end;
writeln('Сумма равна ', s)
end.
1508анастасия2005
11 нояб. 2013 г., 11:08:43 (10 лет назад)
щас решу, ты только дай числа для тестирования
Ответить
Другие вопросы из категории
Пользователь компьютера хорошо владеющий навыками информации с клавиатуры,может вводить в минуту 100 знаков.какое количество информации может ввести
пользователь в компьютер за одну минуту в кодировке Windows?Кодировке Unicode?
Назовите все клетки приведенного лабиринта соответствующие требованию, что, выполнив предложенную ниже программу, РОБОТ уцелеет и остановится в той же
клетке, с которой он начал движение ? (Например:А6,...)
НАЧАЛО
ПОКА<справа свободно> вправо
ПОК А<сверху свободно> вверх
ПОКА<слева свободно> влево
ПОКА<снизу свободно> вниз
КОНЕЦ
Помогите, пожалуйста, выполнит задания, связанные с Turbo Pascal: 1) Определить, что будет напечатано
в результате работы следующего фрагмента программы:
var k,s:integer;
begin
s:=0;
k:=1;
while k<11 do begin
s:=s+k;
k:=K+1;
end;
write(s);
end.
1.1 Запишите этот же фрагмент с помощью оператора Repeat...until
2) Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:
for n:=1 to 100 do
A[n]:=n-10;
for n:=1 to 100 do
B[n]:=A[n]*n;
Сколько элементов массива B будут иметь положительные значения?
а)10 б)50 в)90 г)100
Помогите пожалуйста решить!
Сообщение о том ,что на одной из полок лежит книга содержит 32 бит, сколько полок на книжном стеллаже?
Читайте также
1)Напишите программу,которая в последовательности целых чисел определяет количество трехзначных чисел,не кратных 5 и 7 и не заканчивающ
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
1)Как можно описать на Паскале 1)Как можно описать на Паскале массив,в котором будет храниться значения численности населения Москвы к концу
каждого года XX века?
2)Вы приобрели котёнка.Каждый вечер вы определяете его вес с помощью весов.Как можно описать на Паскале массив,в котором будет храниться значения веса котёнка в течение месяца (например,мая)?
Помогите пожалуйста ! срочно надо!!!...в заданной последовательности целых чисел определите сумму элементов кратных 10! пример задачки вот именно под
типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!
напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех чисел кратных 7 и оканчивающихся на 0. Программа получает на
вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0- признак окончания ввода, не входит в последовательность), Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 0. Программу надо написать в Pascal
напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех чисел кратных 7 и оканчивающихся на 0. Программа получает на
вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0- признак окончания ввода, не входит в последовательность), Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 0. Программу надо написать в Pascal
Вы находитесь на странице вопроса "На паскале написать программу которая в последовательность чисел( натуральных), определяет сумму всех чисел кратных 4 и оканчивающихся на 6. Программа", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.