Задачи от 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

[Ivs]

Ответы:
break - это оператор выхода из цикла до его завершения.
есть еще такие полезные операторы как:
continue- выполнение следующей итерации цикла еще до завершения выполнения этой
halt- остановка выполнеия всей программы, независимо где он расположен
exit - выход из подпрограммы или если он расположен в основной части то завершает работу всей проги.

in [...] - это принадлежность множеству чисел или символов расположеных в квадратных скобках.
его, на самом деле можно заменить
например
if i in [1..20] на
if (i>=1) and (i<=20);
так что можешь там исправить если надо.

Кстати единственная задача которую я не решил это N_17, так как не могу понять условия.....

program N_19;
var
  i,n,k:integer;
  a:array[1..100] of integer;
begin
  write('Input n  (n<=100) -> ');readln(n); {Вводим N}
  k:=0;{В k счетчик кол-ва вхождений}
  for i:=1 to n do
  begin    {Заполнение массива с клавиатуры}
     write('-> ');
     readln(a[i]);
     if a[i]=n then k:=k+1; {проверяем на вхождение N в исходную последовательность}
  end;
  write(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);       {В "k" кол-во совпадений}
  readln;
end.