Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 28
1

Даны натуральные числа от -20 до 150. Напечатать те из них, которые делятся на 3, но не делятся на 5

16.12.2013, 01:45. Показов 1511. Ответов 3
Метки нет (Все метки)

Нужно решить эти задачи без массивов и с вхаил
1. Даны натуральные числа от -20 до 150. Напечатать те из них, которые делятся на 3, но не делятся на 5.

Добавлено через 11 часов 8 минут
Очень надо помогите!!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2013, 01:45
Ответы с готовыми решениями:

Даны натуральные знаковые числа от 20 до 50. Напечатать те из них, которые делятся на 3, но не делятся на 5.
Даны натуральные знаковые числа от 20 до 50. Напечатать те из них, которые делятся на 3, но не...

Даны натуральные числа от 20 до 50.Напечатать те из них, которые делятся на 3, но не делятся на 5
Подскажите в чем ошибка? Консоль не выводит ни каких значений using System; using...

Даны натуральные числа от 20 до 50. Напечатать те из них, которые делятся на 3, но не делятся на 5
Даны натуральные числа от 20 до 50. Напечатать те из них, которые делятся на 3, но не делятся на 5....

Даны натуральные числа от 20 до 50.Напечатать те из них, которые делятся на 3,но не делятся на 5.
1)Даны натуральные числа от 20 до 50.Напечатать те из них, которые делятся на 3,но не делятся на 5....

__________________
3
Заблокирован
16.12.2013, 14:20 2
Условие некорректно.
-20 это не натуральное число.
0
8 / 8 / 12
Регистрация: 16.12.2013
Сообщений: 79
16.12.2013, 15:07 3
Вот программа:
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
label _u,_o;
var p:integer;j:boolean;
begin clrscr;p:=-20;
while p=150 do _u:
j:=((p mod 3)=0) and ((p mod 5)<>0);
if j=true then
writeln('Chislo= ',p);p:=p+1;
if p=150 then goto _o else goto _u;
_o:readln;end.
0
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 28
16.12.2013, 15:49  [ТС] 4
Спасибо но такое решение не подойдет из за label,goto мы таких переменных просто физически не проходили.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2013, 15:49

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Даны натуральные числа от 20 до 50: напечатать те из них, которые делятся на 3, но не делятся на 5
Даны натуральные числа от 20 до 50.Напечатать те из них, которые делятся на 3,но не делятся на 5 ...

Даны натуральные числа от 1 до 50. Найти суммы тех из них, которые делятся на 5 и на 7.
Даны натуральные числа от 1 до 50.Найти суммы тех из них, которые делятся на 5 и на 7. Функция

Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7
Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7.

Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7.
Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.