program kiemtra;
uses crt;
var N,i:integer;
T:longint;
begin clrscr;
write('Nhap so N: '); readln(N);
T:=0;
for i:=1 to N do
If N mod 2<>0 then T:=T*1;
write('Tich la: ',S);
readln;
end.
Học tốt!
var i,n,p:integer;
a:array[1..1000] of integer;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
write('a[',i,']=');readln(a[i]);
end;
p:=a[i];
if a[i] mod 2 <> 0 then
p:=p*a[i];
writeln('p=',p);
cho mình hỏi làm thế nào để học thuộc bài thật dễ và nhanh để tự tin đi thi mình đang cần gấp
Cho đường thẳng A(2;1), B(-1;3), (d): x=3+2t và y=1-t, t thuộc R. Tìm M thuộc (d) sao cho MA^2+2MB^2 đạt giá trị nhỏ nhất.
những khó khăn trong việc khai thác tài nguyên khoáng sản ở TDMNBB mình cần gấp ạ
câu 3 dựng tam giác ABC, biết góc A=60độC,tỉ số AB/AC=4/5 và đường cao AH=6cm giúp mình nhé mình cho 5 sao mình đag cần gấp
Giúp em với ạ, không cần hết 15 câu cũng được ạ, em sẽ đánh giá 5 saooo
Sục 0,896 lit (đktc) axetilen ở đkc qua 100ml dung dịch AGNO3 trong NH3 dư.tính khối lượng kết tủa thu được?
viết chương trình tính trung bình cộng của n số tự nhiên bất kì nhập từ bàn phím
Hãy tìm 4 nguyên nhân dẫn đến tai nạn giao thông do người đi bộ và đi xe đạp gây ra CẦN GẤP , AI XONG TRƯỚC CHO 5 * Ạ !!
Vẽ hộ mình couple Kaito x Shiho nhé, mình đang cần thêm tranh.
giúp mình bài này với ạ làm ngắn gọn nhưng đủ ý cho mình làm nhanh nha mình cần gấp!!!
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
