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.
Câu 2:
uses crt;
var x,y:int64;
begin
clrscr;
readln(x,y);
writeln(x+y);
readln;
end.
viết chương trình nhập vào từ bàn phím 3 số nguyên bất kì.In ra màn hình trung bình cộng của 3 số đó
uses crt;
var
a,b,c,s:integer;
begin
readln(a,b,c);
s:=(a+b+c)/3;
writeln('TBC 3 so a,b,c la: ',s);
readln
end.
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t/n:4:2);
readln;
end.
viết lun dùm mình tính số TB cộng dương với số TB cộng âm với!!
Bài 1
Var s,i:integer;
tb:real;
Begin
Write('Nhap n = ');readln(n);
i:=1;
s:=0;
While i<=n do
Begin
s:=s+i;
i:=i+1;
End;
tb:=s/n;
Writeln('Tong la ',s);
Write('Trung binh la ',tb:10:2);
Readln;
End.
Bài 2
Var i,n,souoc:integer;
Begin
Write('Nhap n = ');readln(n);
i:=1;
While i <= n do
Begin
i:=i + 1;
If n mod i = 0 then souoc:=souoc + 1;
End;
If souoc = 1 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
uses crt;
var a,b,c:real;
begin
clrscr;
readln(a,b,c);
writeln((a+b+c)/3:4:2);
readln;
end.
uses crt;
var a:array[1..100]of integer;
t,i,n:integer;
begin
clrscr;
write('Nhap do dai cua day:'); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Gia tri trung binh cua day la: ',t/n:4:2);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a,b,c,d;
int main()
{
cin>>a>>b>>c>>d;
cout<<a*b*c*d<<endl;
cout<<a*a+b*b+c*c<<endl;
cout<<c-d;
return 0;
}
uses crt;
var a,b,c:real;
begin
clrscr;
readln(a,b,c);
writeln((a+b+c)/3);
readln;
end.