em hãy viết chương trình in ra phép toán và dòng chữ sau:
12+20=32
chào các bạn mình là học sinh lớp 9
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.
em hãy viết chương trình in ra phép toán và dòng chữ sau:
12+20=32
chào các bạn mình là học sinh lớp 9
#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
Var a:array:[1..1000] of real;
i,n:integer;
max,min:real;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap chieu cao ban thu ',i,' = ');readln(a[i]);
End;
max:=a[1];
min:=a[1];
For i:=2 to n do
begin
If a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
end;
writeln('Ban cao nhat la ',max:10:2);
write('Ban thap nhat la ',min:10:2);
Readln
End.
#include <bits/stdc++.h>
using namespace std;
double a,b,c,tb;
int main()
{
cin>>a>>b>>c;
tb=(a+b)*2+c;
if (tb>=38) cout<<"Chuc man ban da thi dau tuyen sinh";
else cout<<"Ban da thi rot, chuc may man lan sau";
return 0;
}
program DiemTrungBinh;
var
i, n: integer;
diem, tong: real;
begin
n := 40;
tong := 0;
for i := 1 to n do
begin
write('Nhap diem cua hs ', i, ': ');
readln(diem);
tong := tong + diem;
end;
writeln('Diem cua lop la: ', tong / n:0:2);
readln;
end.
Nếu chưa học câu lệnh này thì rep lại cho mình để mình dùng mấy câu lệnh đã học từ b8 trở về trước nhá! Good luck for you :D
refer
uses crt;
var i,n:longint;
a:array[1..100] of real;
s1,s,max,min:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Diem trung binh mon tin hoc cua ban thu ',i,' la: ');readln(a[i]);
end;
min:=a[1];max:=a[1];
for i:=2 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i]; end;
for i:=1 to n do
s:=s+a[i];
s1:=s/n;
writeln('So diem cao nhat la: ',max);
writeln('So diem thap nhat la: ',min);
write('Diem TB cua ca lop la: ',s1:0:1);
readln
uses crt;
var NS:array[1..100] of integer; Dtoan,Dvan,Dtb:array[1..100] of real;
hoten:array[1..100] of string; i:byte;
begin
clrscr;
for i:=1 to 45 do
begin
write('Nhap ten cua hoc sinh thu',i,':'); readln(hoten[i]);
write('Nhap ngay sinh:'); readln(NS[i]);
write('Nhap diem toan:'); readln(Dtoan[i]);
write ('Nhap diem van:'); readln(Dvan[i]);
Dtb[i]:=(Dtoan[i]+Dvan[i])/2;
end;
writeln('Diem trung binh cua cac ban trong lop la:');
for i:=1 to 45 do
writeln(hoten[i],':',Dtb[i]:1:2);
readln;
end.
Tham khảo thui!
Var a:array:[1..1000] of real;
i,n:integer;
max,min,s,tb:real;
Begin
Write('Nhap so luong hoc sinh: ');readln(n);
For i:=1 to n do
Begin
Write('Nhap chieu cao hs thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
tb:=s/n;
max:=a[1];min:=a[1];
For i:=2 to n do
Begin
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
end;
writeln('Chieu cao lon nhat la ',max:10:1);
Writeln('Chieu cao nho nhat la ',min:10:1);
Write('Chieu cao trung binh la ',tb:10:1);
Readln
End.
uses crt;
begin
clrscr;
writeln('12+20=',12+20);
writeln('chao cac ban minh la hoc sinh lop 9');
readln;
end.
cảm ơn nhiều lắm luôn nè