Задачи от Romario Опции

[Clane]

Дано равносторонний треугольник со стороной 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 - 21.01.2005 12:08

[ClaneOffline]

Прикольно, а я и не знал, что тут ещё одна моя тема есть Ладно, оставляю тут задачку может тут кто-то решит...

Даны натуральное число N и последовательность A1, A2, …,A N, AN+1. Определить наибольшее из нечетных и количество четных чисел, входящих в последовательность A1, A2, …,A N, AN+1.

И ещё одна задачка, в которой я условие не догоняю, обясните:

Дана последовательность из 50 чисел. Найти их среднее арифметическое. Найти сколько среди них отличных от последнего числа.

Найти сколько среди них отличных от последнего числа. ЧТо енто значит?

Код

program forty_seven;
uses crt;
var
mas:Array [1..50] of Integer;
count,i:Byte;
begin
clrscr;
Randomize;
Writeln('Њ ббЁў:');
writeln;
for i:=1 to 50 do
begin
mas[i]:=Random(30);
if mas[i]<10 then
write(mas[i],'  ') else write(mas[i],' ');
if i mod 10 = 0 then writeln;
end;
for i:=1 to 49 do
if mas[i] <> mas[50] then Inc(count);
writeln;
writeln('Џ®б«Ґ¤­Ё© н«Ґ¬Ґ­в ¬ ббЁў : ',mas[50]);
write('—Ёб«® н«Ґ¬Ґ­в®ў ў ¤ ­­®¬ ¬ ббЁўҐ ®в«Ёз­ле ®в Ї®б«Ґ¤­ҐЈ® н«Ґ¬Ґ­в : ',count);
readln;
end.

Решение задачи про последовательность.....

Сообщение отредактировано: volvo - 21.01.2005 12:20