Question

Viết chương trình tính tổng các số tự nhiên từ 150 đến 1500

Answer 1

uses crt;

var s,i:longint;

begin

clrscr;

s:=0;

for i:=150 to 1500 do 

  s:=s+i;

writeln(s);

readln;

end.

Answer 2

Mọi người giúp mik bài 5 với

Answer 3

Bài 5:

A = -x² - 2y² - 2xy - 2x + 2y + 2019

<=> A = -x² - 2x(y+1) - (y² + 2y + 1) - (y² - 4y + 4) + 2024

<=> A = -x² - 2x(y+1) - (y + 1)² - (y - 2)² + 2024

<=> A = -[(x + y + 1)² + (y - 2)²] + 2024 ≤ 2024 (Dấu "=" xảy ra <=> x = -3; y = 2)

Vậy A_max = 2024 khi x = -3 và y = 2

Answer 4

(1500*1501-149*150)/2

Answer 5

Với "while do' thì:

Var a,b:real;(hay "a,b:longint;" {làm thế này thì nó sẽ in ra kiểu số nguyên, mình cũng không chắc nữa})
Begin
a:=150;
While a<=1500 do
Begin
b:=b+a;
a:=a+2;
End;
Writeln('Vay tong cac so chan la',b);
Readln
End.