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 s,n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(n mod 2<>0) then s:=s+i;
writeln(s);
readln;
end.
bạn có thể giải thik cho mik vì sao lại là for i:=1 to n do if(n mod 2<>0) then s:=s+i đc ko
cảm ơn bạn nhìu
Program HOC24;
var i,n: integer;
S: longint;
begin
write('Nhap N: '); readln(n);
i:=2; s:=0;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
write('S=',S);
readln
end.
program TongCacSoChan;
var
n, s, i: integer;
begin
write('Nhap n: ');
readln(n);
s := 0;
i := 2;
while i <= n do
begin
s := s + i;
i := i + 2;
end;
writeln('Tong cac so chan la: ', s);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,t=0;
cin>>n;
for (int i=1; i<=n; i++)
if (i%6==0) t+=i;
cout<<t;
return 0;
}
Var a:array[1..15] of integer;
i,s:integer;
Begin
I:=1;
While i<=15 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
a: 125 mod 5<>0
b:
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 50 do t:=t+i;
write(t);
readln;
end.
c: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
d:
Dạng thiếu: if <điều kiện> do <câu lệnh>;
Dạng đủ: if <điều kiện> do <câu lệnh 1> else <câu lệnh 2>;
Var i,n:integer;
Begin
Write('n = ');readln(n);
Write('Day so tu 1 den ',n,' la ');
For i:=1 to n do write(i:8);
Readln
End.
Program HOC24;
var i: byte;
begin
for i:=0 to 76 do write(i,' ');
readln
end.
thầy giải lại giúp con tại hồi này con ghi sai