Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Câu 1:
program Bt1;
uses crt;
var N,i,S:integer;
begin
Clrscr;
Writeln('nhap N:=');
Readln(N);
S:=0;
For i:=1 to n do
If (i mod 2=0) then S:= S+i;
Write('S=' ,S:2);
Readln;
end.
Câu 2:
program bt2;
Uses crt;
Var N,i,d : Word;
Begin
If N<2 Then Writeln(N,’ khong phai la so nguyen to’) Else
Begin
d:=0;
For i:=2 To N div 2 Do
If N MOD i=0 Then
d:=d+1;
If d=0 Then Writeln(N,’ la so nguyen to’)
Else
Writeln(N,’ khong phai la so nguyen to’);
End;
Readln;
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
114
55
Nhập xuất tự tính
1/
p:=1;
for i :=1 to n do if i mod 2=0 then p:=p*i;
if n mod 2=1 then p:=p*n;
2/
Kt:=true; // kt : boolean
For i:=2 to round(sqrt(n)) do
if n mod i =0 then
Begin
Kt:=false;
Break;
End;
if kt := true then write(n,’ la so nt’) else ngược lại;
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
0
55
0
Bạn ơi, câu 1 sao lại thực hiện phép chia, đây là phép nhân tính tích mà?
114
1384
55
Câu 1 sai r S là tích mà lại đi tính tổng