Это ариф. прогрессия, a1 = 5, d= 4 S = (2*a1 + d*(n-1))*n/2 (10 + 4n - 4)*n/2 = (3 + 2n)*n = 324 2n^2 + 3n - 324 = 0 Решаешь квадратное уравнение и берешь положительный корень. Но можно решить и простым накапливанием суммы 1) Ввод a = 5, d= 4, S = 0, n = 0 2) Цикл, пока S < 324 2.1) S = S + a 2.2) a = a + d 2.3) n = n + 1 2.4) Конец цикла 3) Вывод n 4) Конец
// 8 begin var arr := ArrRandom(10); Sort(arr); arr.Println; Print('Sum = ', arr.Where(x -> x mod 5 = 0).Sum() + newline + 'Count = ', arr.Where(x -> x mod 5 = 0).Count); end.
// 9 begin var arr := ArrRandom(15); arr := arr.OrderByDescending(x -> x).ToArray; arr.Println; Print('array elements squares sum is = ', arr.Sum(x -> x * x)); end.
1. a; c 2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/ 3. Ошибка - в строке "writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы. Исправление: program prim_a; var m, n, k: integer;
begin writeln('введите значения переменных m, n и k'); read(m,n, k); writeln((m+n+k)*5); end. 4. a) program plowad; var a, h: real;
begin writeln('Введите основание треугольника и высоту'); readln(a, h); writeln('Площадь треугольника равна ', a*h/2); end. 5. program proizvedenie; var a, b: integer;
begin writeln('Введите двузначное число'); readln(a); b:=a mod 10; a:=a div 10; writeln('Произведение цифр двузначного числа равно ', a*b); end.
S = (2*a1 + d*(n-1))*n/2
(10 + 4n - 4)*n/2 = (3 + 2n)*n = 324
2n^2 + 3n - 324 = 0
Решаешь квадратное уравнение и берешь положительный корень.
Но можно решить и простым накапливанием суммы
1) Ввод a = 5, d= 4, S = 0, n = 0
2) Цикл, пока S < 324
2.1) S = S + a
2.2) a = a + d
2.3) n = n + 1
2.4) Конец цикла
3) Вывод n
4) Конец