Через 5 дней сдавать, а я не одной не сделал и незнаю как

[cережка]

Через 5 дней сдавать, а я не одной не сделал и незнаю как

Задание 4. Ввести некоторое целое число N. Определить, является ли оно числом:
Неположительным? Кратным 5? Большим 2? Степенью 3?

задание 5. Составить программу, которая определяет для двух вводимых натуральных чисел M и N количество их общих делителей (не считая 1).

Вычислить максимальную сумму квадратов натуральных чисел, кратных 3 (3, 6, 9…), меньшую 3000
Замечание: Провести решение двумя способами – используя цикл с предусловием WHILE_DO и цикл с постусловием REPEAT_UNTIL.


Задание 3. Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: стороны AC, BC и угол BAC.
Замечание: Программа должна содержать ввод известных величин с клавиатуры, вычисление неизвестных с использованием раздела Function и вывод результатов вычислений на экран.

 

[макс122]

на языке паскаль помогите мне тоже такое нужно...

 

[макс122]

парни помогите мне уже завтра сдавать а я не одной не понимаю...

 

[Валерий]

парни помогите мне уже завтра сдавать а я не одной не понимаю...

Тут помогут разобраться ТЫЦ...

 

[Léon1]

Задание 4. Ввести некоторое целое число N. Определить, является ли оно числом:Неположительным?Кратным 5?Большим 2?Степенью 3?

Program Z_4;
var
 N:Integer;
 begin
 write('Введите N:');
 readln(N);
 if N<0 then
 writeln('Неположительное')
 else
 writeln('Положительное или ноль');
 if (N mod 5 )=0 then
 writeln('Кратно 5')
 else
 writeln('Не кратно 5');
 if N>2 then
 writeln('Больше 2х')
 else
 writeln('Не больше 2х');
 repeat
 if (N mod 3)<>0 then
 begin
 writeln('Не степень 3');
 break;
 end;
 N:=N div 3;
 until
 N=1;
 if N=1 then
 writeln('Степень 3');
 readln;
 end.

 

[Léon1]

Задание 3. Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: стороны AC, BC и угол BAC.
Замечание: Программа должна содержать ввод известных величин с клавиатуры, вычисление неизвестных с использованием раздела Function и вывод результатов вычислений на экран.

var 
 a, b, c : Real; 
 alpha, betta, gamma : Real; 
 P, S : Real; 
function GrdToRad(angle : Real) : Real; 
begin 
 GrdToRad := angle * Pi / 180; 
end; 
function RadToGrd(angle : Real) : Real; 
begin 
 RadToGrd := angle * 180 / Pi; 
end; 
function ArcSin(angle : Real) : Real; 
begin 
 ArcSin := ArcTan(angle / Sqrt(1 - angle*angle)); 
end;
function FindAngle(a, alpha, b : Real) : Real;
begin 
 FindAngle := ArcSin(b * Sin(alpha) / a); 
end; 
function FindStorona(a, alpha, betta : Real) : Real;
begin 
 FindStorona := a * Sin(betta) / Sin(alpha); 
end;
begin 
 Write('введите сторону AC = '); ReadLn(b); 
 Write('введите сторону BC = '); ReadLn(a); 
 Write('введите угол в градусах BAC = '); ReadLn(alpha); 
 alpha := GrdToRad(alpha); 
 betta := FindAngle(a, alpha, b); 
 gamma := Pi - alpha - betta; 
 c := FindStorona(a, alpha, gamma); 
 P := a + b + c; 
 S := a*b*Sin(gamma)/2; 
 WriteLn('Строны ', a:0:3, ' ', b:0:3, ' ', c:0:3); 
 WriteLn('Углы ', RadToGrd(alpha):0:3, ' ', RadToGrd(betta):0:3, ' ', RadToGrd(gamma):0:3); 
 WriteLn('Периметр ', P:0:3); 
 WriteLn('Площадь ', S:0:3); 
readln;
end.

 

[макс122]

помогите еще 2 пожалустай очень нужно...

 

[Léon1]

задание 5. Составить программу, которая определяет для двух вводимых натуральных чисел M и N количество их общих делителей (не считая 1).

Program Z_2;
var m,n,i,c,y: integer; 
begin 
write('m = '); 
readln(m); 
write('n = '); 
readln(n); 
write('Общие делители : '); 
for i := 2 to abs(m - n) div 2 do 
if (m mod i = 0) and (n mod i = 0) then 
begin 
write(i, ' '); 
c := (-1) * i; 
write(c, ' '); 
y:=y+1; 
end; 
if y = 0 then 
writeln('Общих делителей нет'); 
writeln; 
writeln('Всего общих делителей, кроме 1:',2*y-2); 
readln; 
end.

 

[макс122]

и где вычислить тоже буду очень благодарен..