uses crt;
var i:integer;
begin
clrscr;
for i:=9 to 25 do
if (i*2+(36-i)*4)=100 then writeln('so ga la: ',i);
writeln('so cho la: ' ,36-i);
readln;
end.
sử dụng câu lệnh lặp đẻ giải bài toán:
Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con
Một trăm chân chẵn
Sử dụng câu lện lặp đẻ giải bài toán
Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con
Một trăm chân chẵn.
Sử dụng chương trình pascal:
a,Viết chương trình nhập 1 số n từ bàn phím.
b,Đếm xem có bao nhiêu số chẵn từ 0 đến n và tính tổng các số chẵn đó.
Bài 1: Viết chương trình tính tổng các số chẵn từ 10 đến 50?
Bài 2: Viết chương trình giải bài toán sau: Tính tổng A ( n là số tự nhiên được nhập từ bàn phím)
A= 1.3 + 2.4 + 3.5 +...+ n(n+2).
Giúp mình với nhanh nhanh nha.
Viết chương trình nhập 1 số n từ bàn phím.Đếm xem có bao nhiêu số chẵn từ 0 đến n và tính tổng các số chẵn đó
Câu 1: viết chương trình nhập vào N số tự nhiên đầu tiên,đếm xem có bao nhiêu số là số chẵn Câu 2: Viết chương trình nhập vào N số tự nhiên tính tổng các số chia hết cho 3 Em cần gấp lắm ạ:(
Viết chương trình nhập 10 số tự nhiên bất kì từ bàn phím rồi thống kê xem chúng có bao nhiêu số chẵn, bao nhiêu số lẻ. Thực hiện in ra màn hình các số chẵn và số lẻ đó.
VD: INPUT: 5,6,9,10,20,23,7,8,13,31.
OUTPUT: + co 6 so le
+ co 4 so chan
+ cac so chan la: 6 10 20 8
+ cac so le la: 5 9 23 7 13 31
Viết chương trình nhập vào 5 số nguyên bất kì in ra màn hình số chẵn và số lẻ trong dãy số vừa nhập
Hãy tìm hiểu đoạn chương trình sau và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lệnh lặp sau khi kết thúc t bằng bao nhiêu T:=0 N:=S writeln t
