Question

Паскаль Помогите пожалуйста с задачами.(все задачи решаются в паскале) Составьте программы: 1. Вывести на экран значение функции y=2x+1 на отрезке от -5 до 5 с шагом 0.5. 2. Вычислить сумму квадратов всех целей нечетных чисел от 1 до n. 3. Вывести на экран последовательность: 100, 98, 96, ...,2. 4. Выводящие на экран все четные числа от 20 до 50. 5. Выводящие на экран отрицательные целые числа, больше -90

Answer 1

Ответ:

1)

#include <iostream>

using namespace std;

int main(){

int sum=0;

for (int i=1;i<=100;i++){

if(i%2!=0){

cout << i << endl;

sum+=i;

}

}

cout << "Сумма: " << sum;

return 0;

}

2)

#include <iostream>

using namespace std;

int main(){

int n=0;

int x;

int a=0;

int b=0;

cin >> n;

for(int i=0;i<n;i++){

x=0;

cin >> x;

if(x%2==0){

a++;

}

else{

b++;

}

}

if(a>b){ cout << "Четных больше"; }

else { cout << "Нечетных больше"; }

return 0;

}

3)

#include <iostream>

using namespace std;

int main(){

for(int i=20;i<=50;i++){

if(i%3==0 && i%5!=0){ cout << i << endl; }

}

return 0;

}

4)

#include <iostream>

using namespace std;

int main(){

for(int i=35;i<=87;i++){

if(i%7==1 || i%7==2 || i%7==5){

cout << i << endl;

}

}

return 0;

}

Объяснение:

Answer 2

Конечно! Вот решения задач на языке Pascal:

1. Вывести на экран значение функции y=2x+1 на отрезке от -5 до 5 с шагом 0.5:

pascalCopy code
program Task1;
var
  x: Real;
begin
  for x := -5 to 5 step 0.5 do
  begin
    writeln('x = ', x:0:1, ', y = ', 2*x + 1:0:1);
  end;
end.

2. Вычислить сумму квадратов всех целых нечетных чисел от 1 до n:

pascalCopy code
program Task2;
var
  n, i, sum: Integer;
begin
  write('Введите значение n: ');
  readln(n);
  
  sum := 0;
  for i := 1 to n do
  begin
    if (i mod 2 <> 0) then
      sum := sum + i * i;
  end;
  
  writeln('Сумма квадратов нечетных чисел от 1 до ', n, ' равна ', sum);
end.

3. Вывести на экран последовательность: 100, 98, 96, ..., 2:

pascalCopy code
program Task3;
var
  i: Integer;
begin
  i := 100;
  while i >= 2 do
  begin
    writeln(i);
    i := i - 2;
  end;
end.

4. Вывести на экран все четные числа от 20 до 50:

pascalCopy code
program Task4;
var
  i: Integer;
begin
  for i := 20 to 50 do
  begin
    if (i mod 2 = 0) then
      writeln(i);
  end;
end.

5. Вывести на экран отрицательные целые числа, большие -90:

pascalCopy code
program Task5;
var
  i: Integer;
begin
  i := -90;
  while i < 0 do
  begin
    writeln(i);
    i := i + 1;
  end;
end.

Надеюсь, это поможет вам решить задачи!