Làm quen với tin học và máy tính điện tử

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Chibi dễ thương ^ _ ^

Bài 1: Viết chương trình pascal nhập vào các số cho đến khi gặp số chẵn thì dừng. Tính tích các số chia hết cho 5.

Bài 2: Tính tổng S = 1 + 2 + 3 + ... + (Dừng khi S < 500).

Giúp mình với nha mấy bạn!

Nguyễn Lê Phước Thịnh
8 tháng 2 2022 lúc 10:19

Bài 2: 

uses crt;

var s,a:integer;

begin

clrscr;

s:=0;

a:=0;

repeat

  a:=a+1;

s:=s+a;

until s>500;

writeln(s);

readln;

end.


Các câu hỏi tương tự
Đông Nguyễn
Xem chi tiết
Nguyễn Thị Ngọc Minh
Xem chi tiết
Hải Hoàng
Xem chi tiết
Hoàng Tuấn Khang
Xem chi tiết
Thi Đỗ Thị Anh
Xem chi tiết
Nguyễn Thị Ngọc Minh
Xem chi tiết
Đỗ Đức Lâm
Xem chi tiết
Nguyen Kiet
Xem chi tiết
Thị Minh Trần
Xem chi tiết