K
Khách

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.

23 tháng 4 2023

program TinhTong;

var

      Tong, i: integer;

begin

      Tong := 0;

      for i := 1 to 50 do

      begin

            Tong := Tong + i;

      end;

      writeln('Tong tu 1 den 50 la: ', Tong);

      readln;

end.

19 tháng 3 2023

Câu 1:

Program HOC24;

var i,p: integer;

t: longint;

begin

write('Nhap P: '); readln(p);

t:=0;

for i:=1 to p do if i mod 2<>0 then t:=t+i;

write('Tong cac so le la: ',t);

readln

end.

19 tháng 3 2023

Câu 2:

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

write('Tong cac so chan la: ',t);

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long t1,t2,i;

int main()

{

t1=0;

t2=0;

for (i=15; i<=1000; i++)

{

t1+=i;

t2-=i;

}

cout<<t1<<" "<<t2;

return 0;

}

10 tháng 12 2021

2:

#include <bits/stdc++.h>

using namespace std;

long long n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++)

if (n%i==0) cout<<i<<" ";

return 0;

}

21 tháng 3 2023

Program Tinhtong;
Uses Crt;
var i,S: integer;
begin
Clrscr;
S:=0;
For i :=1 to 7 do S:=S+i;
Writeln('Tong cac so tu 1 den 7 la ',S);
End.

16 tháng 9 2021
Program baitap;
Uses crt;
Var S,i : integer;
BEGIN
clrscr;
S:= 0;
For i:=1 to 50 do
S:= S+i;
Writeln (' Vay tong cua cac so tu 1 den 50 la ', S);
Readln
END.
24 tháng 3 2023

readln thiếu dấu chấm phẩy

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>;

30 tháng 3 2022

đúng ko vậy:))