uses crt;
var i,n,chan,le: longint;
begin
clrscr;
readln(n);
for i:=1 to n do
if i mod 2=0 then chan:=chan+i
else le:=le+i;
writeln('Tong cac so chan la: ',chan);
write('Tong cac so le la: ',le);
readln
end.
Viết chương trình cho phép nhập vào ba số a,b,c kiểm tra xem 3 số đó có phải độ dài của ba cạnh tam giác hay không. Nếu đúng in dòng chữ là độ dài ba canh của tam giác va tính chu vi của tam giác đó. Ngược lại nếu sai in dòng chữ không phải là độ dài 3 cạnh của tam giác
GIÚP MÌNH VỚI MÌNH SẮP THI RỒI
XIN CẢM ƠN
1. Viết chương trình khai báo và nhập mảng 1 chiều tối đa 10 phần tử là kiểu số nguyên và 1 số nguyên K:
a, Thông báo ra màn hình các phần tử có giá trị >=K;
b, Thông báo ra màn hình tổng các phần tử >=K;
2. Viết chương trình khai báo và nhập mảng 1 chiều tối đa 10 phần tử là kiểu số nguyên và 1 số nguyên K:
Hãy sắp xếp mảng theo thứ tự tăng dần/ giảm dần. In ra màn hình mảng trước và sau khi sắp sếp.
Gấp gấp cầu cao nhân hỗ trợ ạ!!!
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
Viết chương trình nhập vào 2 số nguyên dương a và b. Hỏi tổng số là bao nhiêu?
Viết chương trình nhập mảng 1 số nguyên N từ bàn phím.In ra các phần tử có giá trị chẵn trên 1 hàng và các phần tử có giá trị lẻ trên 1 cột.
Giúp mik vs đc ko ạ .
Cảm ơn nhiềulắm ^-^
Viết chương trình nhập dãy số nguyên gồm n phần tử. Hãy đếm số phần tử dương trong n số nhập từ bàn phím.
viet chuong trinh nhap 1 so nguyen khac khong tu ban phim,viet ra man hinh cac so tu nhien chan
Hãy in ra màn hình, hàng 1 có 15 chữ A, hàng 2 có 10 chữ H, hàng 3 có 7 chữ X
Câu 1: Cho S và i là biến nguyên. Khi chạy đoạn chương trình:
s:=0;
for i:=1 to 5 do s := s+i;
writeln(s);
Kết quả in lên màn hình là của s là :
A.11 B. 55 C. 101 D.15
Câu 2: Câu lệnh nào sau đây lặp vô hạn lần | |
a) s:=5; i:=0; While i<=s do s:=s + 1; | c) s:=5; i:=1; While i<=s do i:=i + 1; |
b) s:=5; i:=1; While i> s do i:=i + 1; | d) s:=0; i:=0; While i<=n do begin if (i mod2)=1 Then S:=S + i; Else i:=i+1; End; |
Câu 3: : Em hãy viết chương trình tìm số nhỏ nhất trong N số được nhập vào từ bàn phím
Câu 4: Viết chương trình nhập vào dãy số N phần tử, tính tổng dãy số, in ra màn hình dãy số vừa nhập và kết quả của tổng.
Tính tổng của S= 1+2+3+..+n sao cho tổng S nhỏ nhất lớn hơn 500
Vơi n là ô nguyên đc nhập từ bàn phim
xl phim mik hư
