Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
huỳnh duy cát
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 3 2021 lúc 19:53

a)

uses crt;

var i,n:integer;

begin

clrscr;

repeat

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

until n<100;

if n mod 2=0 then 

begin

for i:=0 to n do 

  if i mod 2=0 then write(i:4);

end

else writeln(n,' khong la so chan');

readln;

end.

Nguyễn Lê Phước Thịnh
20 tháng 3 2021 lúc 19:53

b)

uses crt;

var i,n:integer;

begin

clrscr;

repeat

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

until n<100;

if n mod 2=1 then 

begin

for i:=1 to n do 

  if i mod 2=1 then write(i:4);

end

else writeln(n,' khong la so le');

readln;

end.

Selena Flynn
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 23:03

c1: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

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

cout<<s;

return 0;

}

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

for (i=1; i<=n; i++) if (i%2==0) s=s*i;

cout<<s;

return 0;

}

Phan Thị Ka
Xem chi tiết
Minh Lệ
19 tháng 3 2023 lúc 22:40

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.

Minh Lệ
19 tháng 3 2023 lúc 22:41

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.

Minh Lệ
19 tháng 3 2023 lúc 22:42

Câu 3:

Program HOC24;

var i,t,n: integer;

begin

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

t:=0;

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

write('Tong cac uoc cua ',n,' la: ',t);

readln

end.

ngocanh
Xem chi tiết
ngocanh
1 tháng 12 2021 lúc 22:08

giúp em với

 

Trần Minh Tâm
1 tháng 12 2021 lúc 22:33

Câu 3:

program cauba;

int chieudai, chieurong, chuvi, dientich :real;

begin

write('Chieu dai la: '); Readln(chieudai);

write('Chieu rong la: '); Readln(chieurong);

chuvi = (chieudai + chieu rong)*2;

dientich= chieudai*chieurong;

writeln('Chu vi la: ',chuvi);

writeln('Dien tich la: ',dientich);

end.

 

Trần Minh Tâm
1 tháng 12 2021 lúc 22:33

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

write('a='); readln(a);

write('b='); readln(b);

c= a+b;

write('Tong hai so a b la:',c);

end.

Nguyen Thu Giang
Xem chi tiết
Smile
16 tháng 5 2021 lúc 21:27

program sochan;

uses crt;

var a:integer;

begin

write('hay nhap a');

readln(a);

if a mod 2 = 0 then writeln(' a la so chan',a);

end.

Nguyễn Lê Phước Thịnh
17 tháng 5 2021 lúc 9:41

uses crt;

var a:integer;

begin

clrscr;

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

if a mod 2=0 then write(a);

readln;

end.

Hưng Quốc
Xem chi tiết
HT.Phong (9A5)
31 tháng 3 2023 lúc 16:51

1. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do write(i:3);

readln;

end.

2. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(i mod 2 = 0) then write(i:3);

readln;

end.

láobốlaos
31 tháng 3 2023 lúc 16:54

1. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do write(i:3);

readln;

end.

2. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(i mod 2 = 0) then write(i:3);

readln;

end.

Nguyễn Hoàng Duy
2 tháng 4 2023 lúc 16:31

1.

program InDaySoTuNhien;
var n, i: integer;
begin
   write('Nhap so nguyen duong n: ');
   readln(n);

   writeln('Day so tu 1 den ', n, ' la:');
   for i := 1 to n do
      write(i, ' ');
end.

2.

program InSoChan;
var
   n, i: integer;
begin
   write('Nhap so nguyen n: ');
   readln(n);

   writeln('Cac so nguyen chan trong khoang tu 1 den ', n, ' la:');
   for i := 1 to n do
   begin
      if i mod 2 = 0 then
         write(i, ' ');
   end;
end.

Nguyễn Trọng Bằng
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 3 2021 lúc 18:41

uses crt;

var a:real;

begin

clrscr;

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

if a=0 then writeln('Khong tim duoc so nghich dao')

else writeln('So nghich dao la: ',1/a:4:2);

readln;

end.

nuinuini
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 10 2021 lúc 0:31

2: 

#include <bits/stdc++.h>

using namespace std;

int main()

{

string st;

int a;

cin>>st;

cin>>a;

cout<<"Xin chao "<<st<<endl;

cout<<"Nam nay "<<st<<" "<<2021-a<<" tuoi";

return 0;

}

Dang Hien
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:53

2:

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a%b<<endl;

cout<<a/b;

return 0;

}