двадцать задач на Delphi

[Андрей_И]

1. Блок схема для задачи: найти значение выражения 1 * 1 +2 * 2 +...+ n * n
2. Блок схема для задачи: найти количество букв «а» в тексте
3. Блок схема для задачи: Найти факториал числа
4. Блок схема для задачи: Проверка ли в тексте буква «s»
5. Блок схема для задачи: Ввести номер месяца вывести названия времени года.
6. Написать программу с использованием указаний разветвления: Ввести число от 1 до 10 вывести буквами это число
7. Написать программу с использованием циклов: Найти значение выражения 1 * 1 +2 * 2 +...+ n * n.
8. Написать программу с использованием циклов:
Нахождение степени (N) числа (а)
9. Написать программу с использованием циклов:
Нахождение факториала числа (N)
10. Написать программу с использованием циклов: Есть число (N) перевертышем
11. Написать программу с использованием указаний разветвления: Найти максимальное число из трех чисел.
12. Написать блок схему: Написать программу решения квадратного уравнения.
13. Написать программу с использованием массивов:
данная табл. с n срок и столбцов. Найти суммы элементов по диагоналям.
14. Написать программу с использованием массивов: Дано одномерный массив целых чисел А [и], где i = 1, 2, ... n. Вывести элементы массива с четными индексами.
15. Написать программу с использованием массивов: Составить программу, которая будет находить среднее арифметическое табл (а)
16. Написать программу с использованием массивов: Дано квадратную матрицу размерности n. Напечатать сумму элементов боковой диагонали
17. Написать программу с использованием массивов: Создать массив из первых ста целых чисел и вычислить сумму всех его элементов
18. Написать программу с использованием строковых типов: Найти количество букв «а» в тексте
19. Написать программу с использованием срочных типов: Проверка ли в тексте буква «s»
20. Написать программу с использованием строковых типов: Найти количество слов в текст.

[nervniy]

7. Написать программу с использованием циклов: Найти значение выражения 1 * 1 +2 * 2 +...+ n * n.

var q,n,i:integer;
begin
Memo1.Lines.Clear;
q:=0;
n:=StrToInt(Edit1.Text);
for I := 1 to n do
  begin
    q:=sqr(i)+q;
  end;
  Memo1.Lines.Add('n = '+IntToStr(n)+#13#10+'Сумма = '+IntToStr(q));
end;
end;

[nervniy]

17. Написать программу с использованием массивов: Создать массив из первых ста целых чисел и вычислить сумму всех его элементов

var massiv:array [1..10] of integer;
    i,s:integer;
begin
 Memo1.lines.clear;
 for I := 1 to 10 do
 begin
   massiv[i]:= random(100);
 end;
 s:=0;
 for I := 1 to 10 do
   begin
     s:=massiv[i]+s;
   end;
   for i := 1 to 10 do
     begin
       Memo1.Lines.Add(IntToStr(massiv[i]));
     end;
   Memo1.Lines.Add(#13#10+'Сумма ='+IntToStr(s));
end;

[rustx88]

со списком задач во фриланс - могу я помочь в решении за денежку, контакты ниже