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