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.

28 tháng 2 2022

 

Số chẵn:

Var i,n,S: longint;

Begin

Readln(n);

For i:=1 to n do 

If i mod 2 = 0 then S:=S+i

Write(S);

Readln

End.

Số lẻ:

Var i,n,S: longint;

Begin

Readln(n);

For i:=1 to n do 

If i mod 2 = 1 then S:=S+i

Write(S);

Readln

End.

 

28 tháng 2 2022

Ngắn gọn đc ko ạ

 

Bài 1:

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 50 do

  if i mod 2=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

a:=0;

for i:=1 to n do

a:=a+i*(i+2);

writeln(a);

readln;

end.

11 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

long long i,t;

int main()

{

t=0;

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

t=t+i;

cout<<t;

return 0;

}

28 tháng 2 2021

câu 1:

uses crt;

var p,i:integer;

begin

clrscr;

p:=1;i:=1;while i<=5 do

begin

p:=p*i;i:=i+1;

end;

write(p);

readln;

end. 

bai 2:

uses crt;var p,i:integer;begin    clrscr;    p:=1; i:=0;    while i <=10 do    begin

i:=i+1;        if (i mod 2<>0) then p:=p*i;    end;    write(p);    readln;end. bai 3:

uses crt;var n,i,p:integer;begin     clrscr;     write('nhap n: ');     readln(n);     i:=1;     p:=1;     while i<=n do     begin       if i mod 2=0 then p:=p*i;       i:=i+1;     end;     write(p);     readln;end.     

 

28 tháng 2 2021

bạn xuống đây nếu không hiểu

 

undefinedundefined

3 tháng 10 2021

uses crt;
var a,b,cv,s:longint;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  cv:=(a+b)*2;
  s:=a*b;
  writeln('chu vi cua hinh chu nhat do la:',cv);
  write('dien tich cua hinh chu nhat do la:',s);
 readln;
end.

 

uses crt;

const fi='dulieu.txt';

var f1:text;

st:string;

i,d:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

if (st[i] in ['A'..Z']) or (st[i] in ['0'..'9']) or (st[i]=#32) then write(f1,st[i]);

close(f1);

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.