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_14; var i,A,code:integer; n:longint; nn,aa:string; begin write('Input n -> ');readln(n); write('Input A -> ');readln(a); i:=1; str(n,nn);str(a,aa); while i<=length(nn) do begin if nn[i]=aa then begin delete(nn,i,1);i:=i-1;end; i:=i+1; end; val(nn,n,code); writeln(n); readln; end. }
{program N_15; var i,k,m,n:integer; begin write('Input n -> ');readln(n); k:=0;m:=0; for i:=1 to n-1 do if n mod i=0 then begin k:=k+1; if i mod 2 =0 then m:=m+1; end; writeln('Delit -> ',k); writeln('Delit Chet -> ',m); readln; end.}
{program N_16; var i,a,b,c:integer; begin for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do if (a in [1..20]) and (b in [1..20]) and (c in [1..20]) then if 2*a*b=2*c then writeln(a,' ',b,' ',c); readln; end. }
{program N_18; const n=10; var i:integer; a:array[1..n] of integer; begin for i:=1 to n do begin a[i]:=random(9)+1;write(a[i],' '); end; writeln; for i:=1 to n do begin if a[i] mod 2<>0 then a[i]:=a[i]*2; write(a[i],' '); end; readln; end.}
{program N_19; var i,n,k:integer; a:array[1..100] of integer; begin write('Input n (n<=100) -> ');readln(n); k:=0; for i:=1 to n do begin write('-> '); readln(a[i]); if a[i]=n then k:=k+1; end; write(k); readln; end. }
{program N_20; const n=10; var i,min,S:integer; a:array[1..n] of integer; begin S:=0; for i:=1 to n do begin a[i]:=random(10)-5; write(a[i],' '); end; min:=32767; for i:=1 to n do begin if a[i]>0 then if a[i]<min then min:=a[i]; if a[i]<0 then S:=S+a[i]; end; writeln; writeln('Min pol -> ',min); writeln('Summ otriz -> ',S); readln; end.}
{program N_21 uses crt; const n=10; var a:array[1..n] of integer; i,S,k:integer; begin ClrScr; S:=0; k:=0; for i:=1 to n do begin a[i]:=random(10)+1; write(' ',a[i]); S:=S+a[i]; end; for i:=1 to n-1 do if a[i]<>a[n] then k:=k+1; writeln; writeln('Sred arifmet: ',(S/n):0:2); writeln('Otl ot Poslednego: ',k); readln; end. }
{program N_22; const n=10; var i,k:integer; a:array[1..n] of real; begin k:=0; for i:=1 to n do begin write('-> '); readln(a[i]); end; for i:=1 to n do if a[i]=i then k:=k+1; write('Otvet: ',k); readln; end. }
{program N_23; const n=10; var a:array[1..n] of real; i,k:integer; max:real; begin for i:=1 to n do begin a[i]:=random(9)+1; write(a[i]:3 :1,' '); end; for i:=1 to n do if a[i]>max then begin max:=a[i];k:=i; end; for i:=1 to k-1 do if i mod 2=0 then a[i]:=a[i]*max; writeln; for i:=1 to n do write(a[i]:3 :1,' '); readln; end.}
{program N_24; const n=10; var a:array[1..n] of real; i,k:integer; r:real; begin k:=0; write('Input r -> ');readln( r ); for i:=1 to n do begin write('-> '); readln(a[i]); end; for i:=1 to n do if a[i]=r then begin k:=i;break; end; if k=0 then writeln('Net!') else writeln('N: ',k); readln; end. }
{program N_25; const n=10; var a:array[1..n] of real; i,k:integer; r:real; begin k:=0; write('Input r -> ');readln( r ); for i:=1 to n do begin write('-> '); readln(a[i]); end; for i:=n downto 1 do if a[i]=r then begin k:=i;break;end; if k=0 then writeln('Net!') else writeln('N: ',k); readln; end.}
{program N_26; const n=10; var a:array[1..n] of integer; b:array[1..n] of real; i,S,Sa:integer; begin S:=0; for i:=1 to n do begin a[i]:=random(9)+1; write(a[i],' '); S:=S+a[i]; end; writeln; for i:=1 to n do begin b[i]:=(S-a[i])/n-1; write(b[i]:1 :1,' '); end; readln; end. }
{program N_27; const n=10; var a:array[1..n] of integer; i,k:integer; begin for i:=1 to n do begin write('-> '); readln(a[i]); end; writeln; for i:=1 to n do if (a[i]<0) and (a[i] mod 5=2) then begin k:=i;break; end; write(k); readln; end.}
{program N_28; const n=40; var a:array[1..n] of integer; i,S:integer; begin S:=0; randomize; for i:=1 to n do begin a[i]:=random(100)-50; write(a[i],' '); if (a[i]>0) and (a[i]<10) then S:=S+a[i]; end; writeln; for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then write(i,' '); writeln; write('Sred arifmet -> ',(S/n):1 :1); readln; end.}
--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95