Những câu hỏi liên quan
H24
Xem chi tiết
NN
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
Bình luận (0)
H24
16 tháng 6 2023 lúc 7:44

rõ hơn r đó ạ

Bình luận (3)
TC
Xem chi tiết
NT
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.

 

Bình luận (0)
KV
Xem chi tiết
NT
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;

}

Bình luận (0)
VA
Xem chi tiết
KL
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.

Bình luận (0)
H24
Xem chi tiết
NT
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.

Bình luận (0)
TN
Xem chi tiết
ND
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

Bình luận (0)
 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É

Bình luận (0)
 Khách vãng lai đã xóa
ND
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 

Bình luận (0)
 Khách vãng lai đã xóa
NN
Xem chi tiết
KL
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.

Bình luận (1)
MP
Xem chi tiết
NT
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;

}

Bình luận (0)
MP
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

Bình luận (0)
NA
Xem chi tiết
NP
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.

Bình luận (0)
NT
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.

Bình luận (0)
NT
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.

Bình luận (0)