Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Uses crt;
Var A:array[1..10] of integer;
Tong,Tongle,Tongchan,i:integer;
Begin
Clrscr;
Tong:=0;
Tongchan:=0;
Tongle:=0;
For i:=1 to 10 do
Begin
Write('a[',i,'] : ');Readln(a[i]);
Tong:=Tong+a[i];
If a[i] mod 2 = 0 then
Tongchan:=Tongchan+a[i]
Else
Tongle:=Tongle+a[i];
Clrscr;
End;
Writeln('Tong cac phan tu : ',Tong);
Writeln('Tong cac phan tu le : ',Tongle);
Writeln('Tong cac phan tu chan : ',Tongchan);
End.
{ Có gì sai sót cho mình xin lỗi =) }
Câu 1:
Program HOC24;
var i,n: integer;
t: longint;
write('Nhap N: '); readln(n);
t:=1;
for i:=1 to n do t:=t*i;
write(n,'! = ',t);
readln
end.
thi ban co nho lai mat khau la j , ban nho xem ban co doi mat khau ko
mik gõ r mà mik chắc chắc 100% mật khẩu đó đúng . À mà mik lấy nick em mik vào trang của mik thì nó để là Nick đã bị đổi chủ! !
Uses crt;
var i,n,y: integer;
begin clrscr;
readln(n);
for i:=1 to n do s:=i*i;
Writeln(s);
readln;
end.
uses crt;
var S,n,i; integer;
begin
clrscr;
repeat
writeln('Nhap n = '); read(n);
until n<1000000000;
i:=n-1;
While i<n do
begin
S := 0; While ( i <> 0 ) do
Begin k := i mod 10;
i := i div 10;
S := S + k;
end;
end;
if S = 10 then write(i);
readln
end.
uses crt;
var s:real;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=3 to n do
if i mod 2=1 then s:=s+2/(i*(i+2));
writeln('Ket qua la: ',s:4:2);
readln;
end.