viet chuong trinh nhap 1 so nguyen bat ky cho tơi khi nhap so 0 thi dung lại. dem xem co bao nhieu so chan free pascal => su dung lenh while
1 câu trả lời
Uses CRT;
Var n,i,s:longint;
A:array[1..100] of longint;
Begin
Clrscr;
Readln(a[i]);
While a[i] 0 do
Begin
Readln(a[i]);
If a[i] mod 2=0 then s:=s+1;
End;
Readln(s);
Readln;
End.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
