var t, s: longint;
i, n: byte;
a: integer;
Begin
Write('n = '); readln(n);
S:=0; t:=1;
For i:=1 to n do
Write('a[', i, '] = '); readln(a);
If (a mod 2 = 0) then t:=t*a;
S:=s+a;
End;
Writeln('tong: ', s);
Write('tich: ', t);
Readln
End.
viết chương trình in ra tất cả các số nguyên tố từ 2 đến n với n được nhập từ bàn phím
Giúp tớ giải ba câu hỏi này với
Tính lượng mưa trung bình của tháng 1
Chiến sự ở Đà nẵng những năm 1858-1859 diễn ra như thế nào?
Tại sao Pháp chiếm Đà Nẵng rồi mới đi thẳng ra Huế mà không tiến vào Huế ngay từ ban đầu?(bài 24) Tại sao thực dân Pháp xâm lược nước ta? Giúp mk vs Chiều mk thì rồi ạ 😭😭
giúp mình với ạ mình đang gấp xíu
Nêu nội dung và kết quả của hiệp ước Nhâm Tuất
giúp mìnhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh
Giúp vs chiều nay em nộp rồi. 😭😭😭
cho mk hỏi là bài thu hoạch về chuyến đi thực tế nếu có chữ mà ko có hình có sao ko?! -.-
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến