владиславвв
1

Выведите на экран числа от 13 до 100, которые делятся без остатка на 11 и 17 одновременно

12.03.2011, 14:34. Показов 7720. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите с задачами по информатике на Паскале:
1.Выведите на экран числа от 13 до 100, которые делятся без остатка на 11 и 17 одновременно.(циклы)
2.Составьте программу для нахождения среднего арифметического всех натуральных чисел кратных трём.
3.Информация о температуре воздуха за месяц задана в виде массива.Определите и выведите на экран,сколько раз температура опускалась ниже нуля.(массивы)
На паскале.Заранее спасибо.Помогите пожалуста.
 Комментарий модератора 
Создавайте темы в соответствующем разделе!
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.03.2011, 14:34
Ответы с готовыми решениями:

Вывести на экран числа на интервале от 1 до 100, которые заканчиваются цифрой 3 и делятся на 7 без остатка
1) Вывести на экран числа на интервале от 1 до 100, которые заканчиваются цифрой 3 и делятся на 7...

Найдите и выведите на экран все трехзначные числа которые без остатка делятся на 11 и имеют в своей записи хотя бы одну цифру 3
2)Найдите и выведите на экран все трехзначные числа которые без остатка делятся на 11 и имеют в...

Количество чисел между 100 и 1000, которые делятся без остатка одновременно на 13 и 15
определите и выведите на экран количество чисел между 100 и 1000, которые делятся без остатка...

Определить числа, которые делятся без остатка одновременно на 11 и 17
Ничего не получается..помогитеее:( Определите и выведите на экран числа и их количество в...

3
Фрилансер
Эксперт С++
5845 / 1226 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
12.03.2011, 15:43 2
1.Выведите на экран числа от 13 до 100, которые делятся без остатка на 11 и 17 одновременно.(циклы)
Pascal
1
2
3
for i:=13 to 100 do
if (i mod 13=0) and (i mod 17=0) then
writeln(i);
2.Составьте программу для нахождения среднего арифметического всех натуральных чисел кратных трём
Pascal
1
2
3
4
5
6
7
for i:=1 to n do
if arr[i] mod 3=0 then
begin
inc(cnt);
inc(sum,arr[i]);
end;
writeln(sum/cnt);
3.Информация о температуре воздуха за месяц задана в виде массива.Определите и выведите на экран,сколько раз температура опускалась ниже нуля.(массивы)
Pascal
1
2
3
4
for i:=1 to n do
if arr[i]<0 then
inc(cnt);
writeln(cnt);
1
владиславвв
13.03.2011, 16:15 3
inc(cnt) что такое?
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
13.03.2011, 16:32 4
подсчитать колличество

Добавлено через 1 минуту
Цитата Сообщение от Dekio Посмотреть сообщение
if arr[i]<0 then
inc(cnt);
на данном примере: посчитать колличество(count) отрицательных элементво массива(arr)
0
13.03.2011, 16:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.03.2011, 16:32
Помогаю со студенческими работами здесь

Вывести все трехзначные числа (100-999), которые делятся на каждое из своих чисел без остатка
Здравствуйте! Очень надеюсь на вашу помощь, перепробовал кучу вариантов, и все никак не выходит,...

Программа на паскале - Найдите сумму натуральных чисел от 1 до 1000, которые делятся без остатка на 7 и не делятся без остатка на 13
Требовалось решить задачу по математике: Найдите сумму натуральных чисел от 1 до 1000, которые...

Перебрать все целые числа и вывести на экран те, которые делятся без остатка на количество разрядов этих чисел
Написать программный код, который перебирает целые числа от 0 до бесконечности и выводит на экран...

Вывести числа, которые делятся без остатка на 5 и не делятся на 7 и на 11
помогите создать программу , которая выводит все числа от a до b , которые делятся без остатка на 5...

Дано натуральное семизначное число N. Вывести на экран цифры числа, которые делятся на а без остатка. Определить количество цифр,
Дано натуральное семизначное число N. Вывести на экран цифры числа, которые делятся на а без...

Посчитать произведение чисел из 5 заданных, которые делятся без остатка на 3 и не делятся без остатка на 5
Написать программу, которая введет 5 значений и посчитает произведение чисел, которые делятся без...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru