IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> помогите умоляю
сообщение
Сообщение #1


Гость






помогите кто знает я в отчаяньи
Всего 4 задачи: (Операция целочисленного деления)
Цитата(Задача 1)
Написать программу которая по номеру дня недели выдаёт количество уроков в этот день.

Цитата(Задача 2)
Определить равен ли квадрат заданного трёхзначного числа,кубу суммы цифр этого числа.

Цитата(Задача 3)
Написать программу нахождении суммы большего и меньшего из 3 чисел(а,в,с)

Цитата(Задача 4)
Подсчитать количество положительных чисел среди чисел(а,в,с)

Вот прошу помоги просто неккому обратиться больше 8-)
 К началу страницы 
+ Ответить 
 
Closed Topic Открыть новую тему 
Ответов
сообщение
Сообщение #2


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


2.
Код
program P2;
var
 d, u: Word;
begin
 writeln('введите трёхзначное число');  
 readln(d);
 if (d<100) or (d>999) then
   writeln('Число введено неверно')
 else begin
   u := (d div 100)+(d div 10 mod 10)+(d mod 10);
   if (d*d)=(u*u*u) then writeln('Да');
   else writeln('Нет');
 end;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Tema   помогите умоляю   14.11.2002 22:44
AlaRic   Re: помогите умоляю   15.11.2002 2:50
AlaRic   Re: помогите умоляю   15.11.2002 3:14
mj   Re: помогите умоляю   15.11.2002 4:44
mj   Re: помогите умоляю   15.11.2002 4:55
mj   Re: помогите умоляю   15.11.2002 5:04
mj   Re: помогите умоляю   15.11.2002 5:26
mj   Re: помогите умоляю   15.11.2002 5:31
Clane   Re: помогите умоляю   15.11.2002 15:52
AlaRic   Re: помогите умоляю   15.11.2002 20:32
AlaRic   Re: помогите умоляю   15.11.2002 20:35
AlaRic   Re: помогите умоляю   15.11.2002 20:53
mj   Re: помогите умоляю   15.11.2002 22:28
mj   Re: помогите умоляю   15.11.2002 22:33
AlaRic   Re: помогите умоляю   15.11.2002 22:57
borlpasc.narod.ru   Re: помогите умоляю   16.11.2002 0:08
Alex   Re: помогите умоляю   16.11.2002 14:53
Ivs   Re: помогите умоляю   16.11.2002 14:56
AlaRic   Re: помогите умоляю   16.11.2002 20:19
AlaRic   Re: помогите умоляю   16.11.2002 20:21
Clane   Re: помогите умоляю   17.11.2002 0:15
Alex   Re: помогите умоляю   19.11.2002 17:59
AlaRic   Re: помогите умоляю   19.11.2002 21:02


Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 2:31
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name