дана последовательность целых чисел x1 x2 xn и натуральное n получить последовательность чисел кратных 3 и не кратных 5
5-9 класс
|
var
i,n,a:integer;
begin
readln(n);
for i:=1 to n do
begin
read(a);
if (a mod 3=0)and(a mod 5>0) then write(a,' ');
end;
writeln;
end.
Другие вопросы из категории
помогите плиииз)
вместить только двух человек. Купцы боязливо поглядывали на разбойников, так как знали, что во время переправы на берегу число разбойников и купцов будет одинаковым, то разбойники не тронут купцов; если же число разбойников превысит число купцов хотя бы на одного человека, то разбойники убьют купцов. Перед купцами стояла сложная задача, но она была ими решена все перебрались на тот берег и жертв не было. Как сумели перебраться купцы и разбойники и сколько рейсов совершила лодка? За рейс следует считать движение лодки в одном направлении.
Читайте также
типо по такой же системе которую щас напишу! 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. Помогите пожалуйста!!!
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.