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 s1,s2,i,j:integer;
Begin
s1:=1;
s2:=0;
i:=2;
j:=4;
While i<=50 do
Begin
s1:=s1+i;
i:=i+2;
End;
While j<=20 do
Begin
s2:=s2+j;
j:=j+4;
End;
s2:=s2+32;
Writeln('Tong day N = ',s1);
Writeln('Tong day M = ',s2);
Readln;
End.
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>;
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
Bạn kiểm tra lại đề nhé mình không thấy quy luật gì trong dãy số của đề bài cả