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

> Прочтите прежде чем задавать вопрос!

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

> Задачи от Romario
сообщение
Сообщение #1


Гость






Дано равносторонний треугольник со стороной a. Найти, длину стороны равнобольшого ему квадрата. Вычислить для таких значений:
Цитата
a) a=7;
b) a=13
c) a=54

Написать программу, которая определяет, можно ли построить треугольник со сторонами a, b, і c.
Написать программу для определения квартала года по порядковому номеру месяца.
Найти количество чисел кратных 7 от 7 до 7777 включительно.
Цитата
a) Используя цикл for;
b) Используя цикл while;
c) Используя цикл repeat

Найти среднее арифметическое всех целых положительных чисел меньше числа n включительно.
Вычислить для
Цитата
a) n=5;
b) n=20;
c) n=156

Написать программу нахождения суммы чисел:
S=10+22+32+…+n2, если
Цитата
a) n=7;
b) n=10;
c) n=12

Найти остаток от деления натурального числа a на натуральное число b путём последовательного вычитания от числа a числа b.

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

Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
 
Closed Topic Открыть новую тему 
Ответов
сообщение
Сообщение #2


...
*****

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

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


Цитата
Найти среднее арифметическое всех целых положительных чисел меньше числа n включительно. Вычислить для
a) n=5;
B) n=20;
c) n=156.

program new;
uses wincrt;
var summ,n,k,i:integer;
c:real;
begin
writeln('Вычисление среднего арифметического');
writeln('введите кол-во чисел');
readln(i);
summ:=0;
c:=0;
n:=1;
for k:=1 to i do
begin
summ:=summ+n;
inc(n);
end;
c:=summ/i;
writeln('Ответ',c:5:1);
end.


Это для всех пунктов.Просто введешь нужное кол-во чисел.

Добавлено (18.11.02 16:16):
Цитата
Написать программу для определения квартала года по порядковому номеру месяца.

program new14;
uses wincrt;
var a,b:integer;
begin
writeln('введите номер месяца');
readln(a);
case a of
1:b:=1;
2:b:=1;
3:b:=1;
4:b:=2;
5:b:=2;
6:b:=2;
7:b:=3;
8:b:=3;
9:b:=3;
10:b:=4;
11:b:=4;
12:b:=4;
end;
writeln('Квартал',b:1);
end.


Добавлено (18.11.02 16:38):
Цитата
Найти остаток от деления натурального числа a на натуральное число b путём последовательного вычитания от числа a числа b.

program new4;
uses wincrt;
var a,b,c,d,e:integer;
begin
d:=0;
c:=0;
e:=0;
writeln('введите A и B');
readln(a,B);
c:=a div b;
e:=a;
for d:=1 to (a div B) do
begin
e:=e-b;
end;
writeln('Остаток',e:5);
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Clane   Задачи от Romario   18.11.2002 19:14
AlaRic   Re: Задачи от Romario   18.11.2002 20:56
Ivs   Re: Задачи от Romario   19.11.2002 0:45
AlaRic   Re: Задачи от Romario   19.11.2002 1:03
Alex   Re: Задачи от Romario   19.11.2002 18:11
zeFes   Re: Задачи от Romario   23.11.2002 22:48
trminator   Re: Задачи от Romario   25.11.2002 22:59
trminator   Re: Задачи от Romario   25.11.2002 23:15
Romario   Re: Задачи от Romario   4.12.2002 4:21
ClaneOffline   Re: Задачи от Romario   4.12.2002 15:52
Dogmatic   Re: Задачи от Romario   4.12.2002 21:49
Romario   Re: Задачи от Romario   5.12.2002 3:25
Ivs   Re: Задачи от Romario   5.12.2002 15:23
Romario   Re: Задачи от Romario   6.12.2002 3:24
Romario   Re: Задачи от Romario   6.12.2002 3:47
Ivs   Re: Задачи от Romario   6.12.2002 16:27
Ivs   Re: Задачи от Romario   7.12.2002 1:00
Ivs   Re: Задачи от Romario   7.12.2002 1:01
Ivs   Re: Задачи от Romario   7.12.2002 1:03
Romario   Re: Задачи от Romario   7.12.2002 3:25
Romario   Re: Задачи от Romario   7.12.2002 6:54
Ivs   Re: Задачи от Romario   7.12.2002 13:16
Ivs   Re: Задачи от Romario   7.12.2002 23:21
Romario   Re: Задачи от Romario   8.12.2002 6:18
Ivs   Re: Задачи от Romario   11.12.2002 17:08
Ivs   Re: Задачи от Romario   11.12.2002 19:38
Romario   Re: Задачи от Romario   12.12.2002 4:32
Tatjanka   Помогите пожалуйста решить мне задачку. За ранее в…   28.11.2004 14:37
Altair   а новую темку создать нельзя было? Эх а какую тему…   28.11.2004 14:41
volvo   Tatjanka Зачем же поднимать такие старые темы? Мож…   28.11.2004 14:42
Altair   volvo, неужели так? я думал, что дына последовате…   28.11.2004 14:44
Tatjanka   Oi spasibo vam ogromnoe sei4as poprobuju eto v pro…   28.11.2004 14:49
Tatjanka   Vse polu4ilos!!!!!!!…   28.11.2004 14:54
Tatjanka   Eshe u menja ostalas odna zada4ka s massivom. Esli…   28.11.2004 15:00
volvo   Tatjanka var i: integer;  a, b, c…   28.11.2004 15:03


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

 





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