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

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

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

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


Гость






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

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

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

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

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


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

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


Number 3:
Заранее прошу прощение за кривое написание но я пишу это в 2 ночи так что......
Код
program new2;
var s,a,b,c:real;
begin
writeln('введите a,b,c');
readln(a,b,c);
if a<b and b<c then do
begin
s:=a+c;
write('сумма равна', s:5:3);
end;
else
if b<a and a<c then do
begin
s:=b+c;
write(сумма равна', s:5:3);
end;
else
if a<c and c<b then do
begin
s:a+b;
write('сумма равна', s:5:3);
end;
end.


Кстати MJ ты щас в онлайне вроде бы....может заодно проверишь???
 Оффлайн  Профиль  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 6:39
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name