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
lonnhh
Xem chi tiết
Ng Bảo Ngọc
16 tháng 6 2023 lúc 8:03

1.her

2.his

3.my

4.my

5.our

6. His

7. Their

8. Their

9. My

10. Her

11. their

12. our 

13. its 

14. their 

15. our 

16. my

17.her

18.our

19.your

20.her

21.their

22.its

23.my

24.his

25.their
lonnhh
16 tháng 6 2023 lúc 7:44

rõ hơn r đó ạ

Tiểu cường
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 4 2022 lúc 7:14

 

 

 

uses crt;

var a,b,c,tb:array[1..10]of real;

ln,nn:real;

n:integer;

i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i],b[i],c[i]);

for i:=1 to n do 

  tb[i]:=(a[i]+b[i]+c[i])/3;

for i:=1 to n do

writeln(tb[i]:4:2);

readln;

end.

 

Khanh Le Van
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 12 2021 lúc 23:12

1:

#include <bits/stdc++h>

using namespace std;

string a,b;

int main()

{

getline(cin,a);

getline(cin,b);

cout<<a<<" "<<b;

return 0;

}

Vũ Đồng Anh
Xem chi tiết
Kiều Vũ Linh
2 tháng 5 2023 lúc 8:47

Var a:array[1..60] of real;

s,tbc:real;

i,n:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap diem cua ban thu ',i);readln(a[i]);

s:=s+a[i];

End;

tbc:=s/n;

Write('Diem trung binh la ',s);

Readln

End.

dacdada2134
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 8 2023 lúc 16:08

uses crt;

var a,b,c,ln,nn:integer;

tbc:real;

begin

clrscr;

readln(a,b,c);

ln:=a; 

if ln<b then ln:=b;

if ln<c then ln:=c;

nn:=a;

if nn>b then nn:=b;

if nn>c then nn:=c;

writeln(ln);

writeln(nn);

tbc:=(a+b+c)/3;

if a>tbc then write(a,' ');

if b>tbc then write(b,' ');

if c>tbc then write(c,' ');

writeln;

if a=tbc  then write(a,' ');

if b=tbc then write(b,' ');

if c=tbc then write(c,' ');

readln;

end.

Trần Huỳnh Uyển Nhi
Xem chi tiết
Nguyễn Thành Đạt
25 tháng 1 2022 lúc 14:16

mình mới biết một cách thôi đó là Alt + Prt Sc

Khách vãng lai đã xóa

TL

CÓ RẤT NHIỀU CÁCH,NHƯNG CÁCH PHỔ BIẾN NHẤT LÀ 

Chụp màn hình máy tính bằng nút PrintScreen (PrtScr)(ÚT NÀY CÓ TRÊN BÀN PHÍM)

OK NHÉ

Khách vãng lai đã xóa
Nguyễn Thành Đạt
25 tháng 1 2022 lúc 14:19

bước 1 : bấm phím Alt và giữ phím đó

bước 2 : bấm phím Prt Sc và thả tay ra 

Khách vãng lai đã xóa
Ngoc Anh Nguyen
Xem chi tiết
Kiều Vũ Linh
14 tháng 3 2023 lúc 9:24

Var a:array[1..100] of integer;

i,s:integer;

Begin

For i:=1 to 100 do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

If a[i] mod 2 <> 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln;

End.

Mai Phương
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 10 2021 lúc 21:26

#include <bits/stdc++.h>

using namespace std;

int main()

{

cout<<"Chao cac ban"<<endl;

cout<<"Minh ten la:"<<endl;

cout<<"Minh hoc lop:";

return 0;

}

Mai Phương
4 tháng 12 2021 lúc 10:01

program XinChao;

uses crt;

begin

Clrscr;

writeln ('Chao cac ban!');

writeln('Minh ten la Nguyen Mai Phuong ');

writeln('Minh hoc lop 8A4');

readln;

end.

đáp án nha

Ngáo Ngơ Alice
Xem chi tiết
nguyễn an phát
11 tháng 4 2021 lúc 12:02

program timtich;

uses  crt;

var i,n:integer;

tich:longint;

a:array[1..100]of integer;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do

write(a[i]:4);

tich:=1;

writeln;

for i:=1 to n do

if a[i] mod 2=0 then tich:=tich*a[i];

writeln('tich ca phan tu chan cua mang la:',tich);

readln;

end.

program timtong;

uses  crt;

var i,n:integer;

tong:longint;

a:array[1..100]of integer;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do

write(a[i]:4);

tong:=0;

writeln;

for i:=1 to n do

if a[i] mod 2=0 then tong:=tong+a[i];

writeln('tong cac phan tu chan cua mang la:',tong);

tong:=0;

writeln;

for i:=1 to n do

if a[i] mod 2=1 then tong:=tong+a[i];

writeln('tong cac phan tu le cua mang la:',tong);

readln;

end.

Nguyễn Lê Phước Thịnh
11 tháng 4 2021 lúc 17:56

Bài 1: 

uses crt;

var a:array[1..100]of integer;

i,n,s:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

s:=1;

for i:=1 to n do 

  if a[i] mod 2=0 then s:=s*a[i];

writeln(s);

readln;

end.

Nguyễn Lê Phước Thịnh
11 tháng 4 2021 lúc 17:57

uses crt;

var a:array[1..100]of integer;

i,n,t1,t2:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

t1:=0;

t2:=0;

for i:=1 to n do

begin

if a[i] mod 2=0 then t1:=t1+a[i]

else t2:=t2+a[i];

end;

writeln('Tong cac so chan la: ',t1);

writeln('Tong cac so le la: ',t2);

readln;

end.