Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Ngọc Diệp

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

Nguyễn Lê Phước Thịnh
9 tháng 2 2021 lúc 17:37

uses crt;

var s,i:longint;

begin

clrscr;

s:=0;

for i:=150 to 1500 do 

  s:=s+i;

writeln(s);

readln;

end.

Ngọc Diệp
9 tháng 2 2021 lúc 16:17

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

xKraken
10 tháng 2 2021 lúc 23:35

Bài 5:

A = -x2 - 2y2 - 2xy - 2x + 2y + 2019

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

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

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

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

Phan Minh Trí
17 tháng 2 2021 lúc 0:04

(1500*1501-149*150)/2

Trungnghia
9 tháng 4 2021 lúc 15:44

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.


Các câu hỏi tương tự
Phan Thị Ka
Xem chi tiết
Thanh Hiền Hồ
Xem chi tiết
Nguyến Ngọc Nguyên
Xem chi tiết
Huỳnh Hân
Xem chi tiết
Hoa Chan
Xem chi tiết
Thuận Thoa
Xem chi tiết
Phùng Tú Văn
Xem chi tiết
Người sao hỏa
Xem chi tiết
Yna Lolipop
Xem chi tiết