Các bạn xoay màn hình ra nhé
'
Các bạn xoay mh ra nhé
1.her
2.his
3.my
4.my
5.our
6. His
7. Their8. Their
9. My10. 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.theirViết chương trình nhập điểm toán, lí, hóa cho các bạn lớp 8a14. Sao đó in ra màn hình điểm trung bình của các bạn trong lớp theo công thức điểm trung bình= ( điểm toán+ điểm lí+ điểm hóa):3 và in ra màn hình kết quả
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.
1. nhập vào 2 biến a'b là chuỗi. Biến a nhập tên đệm, biến b nhập tên. in ra màn hình chuỗi họ và tên đầy đủ
2. nhập vào mảng tên: lưu tên các bạn trong lớp
nhập vào mảng địa chỉ: lưu địa chỉ tương ứng với các bạn ở mảng tên
in ra màn hình các bạn trong lớp kèm địa chỉ của họ
3. nhập tên các bạn trong lớp tìm tên bạn nào dài nhất
1:
#include <bits/stdc++h>
using namespace std;
string a,b;
int main()
{
getline(cin,a);
getline(cin,b);
cout<<a<<" "<<b;
return 0;
}
Nhập điểm của N bạn trong lớp, in ra màn hình điểm trung bình của các bạn
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.
Viết chương trinh nhập ba số nguyên a, b, c:
Xuất ra màn hình số lớn hơn.Xuất ra màn hình số bé hơn.Xuất ra màn hình các số lớn hơn TBC của các số đó.Xuất ra màn hình các số bằng TBC của các số đó.ai giup minh voi
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.
Các bạn ơi, giúp mình cái này " Cách để chụp màn hình máy tính bàn có Windows 7 " với nhé ( mình sẽ Tick cho 5 bạn thôi nhé và nhớ giải tích từng bước nhé )
mình mới biết một cách thôi đó là Alt + Prt Sc
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ước 1 : bấm phím Alt và giữ phím đó
bước 2 : bấm phím Prt Sc và thả tay ra
Em hãy viết chương trình nhập vào mảng A gồm 100 phần tử. tính và đưa ra màn hình tổng các phần tử không chia chết cho 2 trong mảng. Mn ơi giúp mình làm bài này với ạ TT mình cảm ơn mọi người nhiều!! (pascal nhé mấy bạn ơi
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.
Viết chương trình in ra màn hình 3 dòng chữ:
- Chào các bạn
- Mình tên là ...
- Mình học lớp ...
#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;
}
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ài 1: Viết chương trình nhập vào 1 dãy số nguyên xuất dãy số đó ra màn hình tính tích các số chẵn và xuất ra màn hình.
Bài 2: Viết chương trình nhập 1 dãy số nguyên, xuất dãy số đó ra màn hình tính tổng các số chẵn các số lẻ và xuất ra màn hình.
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à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.
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.