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


Бывалый
***

Группа: Пользователи
Сообщений: 209

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


Вместо рожиц следует читать "8 )"
{program N_1;
var
  i1,i2,i3,A:integer;
begin
  ClrScr;
  write('Input A -> ');readln(A);
  for i1:=1 to 9 do
     for i2:=0 to 9 do
      for i3:=0 to 9 do
         if (i1<>i2) and (i1<>i3) and (i2<>i3) then
            if (i1+i2+i3)=A  then write(i1,i2,i3,' ');
  readln;
end.  }

{program N_2;
var
  i1,i2,i3,N:integer;
begin
  write('Input N -> ');readln(N);
  for i1:=1 to 9 do
     for i2:=0 to 9 do
      for i3:=0 to 9 do
         if i1+i2+i3=N then write(i1,i2,i3,' ');
  readln;
end.}

{program N_3;
var
  i,k,m
  integer;
begin
  for i:=10 to 99 do
  begin
     k:=i;
     m:=k mod 10;
     k:=k div 10;
     if (m+k)+sqr(m+k)=i then write(i,' ');
  end;
  readln;
end.}

{program N_4;
var
  i,k:longint;
begin
  for i:=100 to 999 do
     if (sqr(i) mod 1000) =i then write(i,' ');
  readln;
end. }

{program N_5;
var
  i:integer;
begin
  for i:=1000 to 9999 do
     if (i mod 133=125) and (i mod 134=111) then write(i,' ');
  readln;
end.}

{program N_6;
var
  i,a,b,S:integer;
begin
  write('Input A -> ');readln(a);
  write('Input B -> ');readln(B);
  S:=0;
  for i:=a to b do
     if i mod 4 =0 then S:=S+i;
  write('Summa : ',S);
  readln;
end.}

{program N_7;
var
  i:integer;
begin
  for i:=21 to 99 do
     if (i mod 3=0) and (i mod 10=2) or (i mod 10=4) or (i mod 10=8) then write(i,' ');
  readln;
end.}

{program N_8;
var
   i:integer;
begin
  for i:=100 to 999 do
     if (i mod 100)*7=i then begin write(i,' ');break; end;
  readln;
end.  }

{program N_9;
var
  i1,i2,i3,k:integer;
begin
  for i1:=1 to 9 do
     for i2:=0 to 9 do
      for i3:=0 to 9 do
      begin
         k:=i1*100+i2*10+i3;
         if ((i1+i2+i3) mod 7=0) and (k mod 7=0) then write(i1,i2,i3,' ');
      end;
  readln;
end. }

{program N_10;
var
  i1,i2,i3,i4:integer;
begin
   for i1:=1 to 9 do
      for i2:=0 to 9 do
       for i3:=0 to 9 do
          for i4:=0 to 9 do
          if (i1<>i2) and (i1<>i3) and (i1<>i4) and (i2<>i3) and (i2<>i4) and (i3<>i4) then write(i1,i2,i3,i4,' ');
  readln;
end.  }

{program N_11;
var
  i1,i2,q:integer;
begin
  write('Input q -> ');readln(q);
  for i1:=1 to 9 do
     for i2:= 0 to 9 do
      if ((i1*10+i2) mod q=0) and (i1+i2>0) and (i1+i2<18) then write(i1,i2,' ');
  readln;
end.}

{program N_12;
var
  code:integer;
  n,i:longint;
  s:string;
begin
  write('Input n -> ');readln(n);
  str(n,s);
  i:=1;
  while i<=length(s) do
  begin
     if (s[i]='0') or (s[i]='5') then begin delete(s,i,1);i:=i-1; end;
     i:=i+1;
  end;
  val(s,n,code);
  write(n);
  readln;
end.}

{program N_13;
var
  i,n,s:integer;
begin
  write('Input n -> ');readln(n);
  S:=0;
  for i:=1 to n-1 do
     if (n mod i=0) then begin write(i,' '); S:=S+i;end;
  writeln;
  write('Summa=',S);
  readln;
end.}



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