Вот вам программа, пробовала компилировать и запускать на free-pascal, на всем остальном тоже должно пойти
Формула указана не ясно в задании, я указал в ответе так как оно более менее смотрится понятно, но вам стоит уточнить. Что до алгоритма, то он выглядит вот таким вот образом. Внимание, первый член данного ряда считается за 0, вам стоит так же уточнить у преподавателя, в задании этого явно не указано, но зачастую такое значение традиционно.
Ошибки в вашем алгоритме:
1. У вас условие k < 0, это значит, что если будет введено k = 0, то алгоритм отработает, но 0 членов быть не может, это не имеет смысла.
2. Цикл у вас выводит значение n-го члена после каждой итерации, а не единожды.
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "спасибо" (:
#include <iostream>
using namespace std;
int main()
{
int n,max;
bool a=false;
cout<<"enter kol-vo numbers:"<<endl;
cin>>n;
if(n<=1000)
{
int arr[n];
cout<< "enter 1 chislo"<<endl;
cin>>arr[0];
max=arr[0];
if(arr[0] % 10==3 && arr[0]<30000)
{
a=true;
for (int i=1;i<n;i++)
{
cout<<"enter "<<(i+1)<<" chislo"<<endl,
cin>>arr[i];
if(arr[i]>30000) {goto b;}
}
for (int i = 0; i < n; ++i) {
if (arr[i] > max && arr[i] % 10==3)
{
max = arr[i];
}
}
}
}
b:
if(a){ cout<<" max chislo okanch na 3: "<< max<<endl; }
return 0;
}
Var s:string; i:integer;
begin
writeln('Введите слово:');
readln(s);
for i:=1 to length(s) do write(s[i],' ');
<span>end.
Пример:
Введите слово:
primer
<span>p r i m e r
</span></span>
Часть А:
1 - C (short int 2 байта -32768/32767)
2 - D. С числа переменные не называются.
3 - C. 3.5*10^-3=0.0035
4 - A, B, M. Ответ: C
Целый тип принимает только целые числа.т.е к примеру: -1, 2, 55, 99999, -99999.
35.5 - вещественное число.true - логический тип. (Да(true)/Нет(false)). Называется Boolean.
'пять' - строка.
5. 4682, 4680. Ответ: B
Часть B:
1. sqrt(x1+x2) + (abs(x1)/abs(x1+x2))
2. ABS(SQR(36)-15 div 2) = 1289
3. 30
4. Не понятно что такое: X <> Y Y.
Часть С:
1.
var A,B:integer;
S,G:real;
begin
readln(A, B);
S := (A+B)/2;
G := sqrt(A*A+B*B);
writeln('S = ', S, ' G = ', G);
end.
