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.
var a,b:byte;
begin
write('nhap a,b:');readln(a,b);
write('a+b chia 7 duoc ',(a+b) div 7,' va du ',(a+b) mod 7);
readln;
end.
uses crt;
var x:array[1..100]of real;
n,i:integer;
tb:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('X[',i,']='); readln(x[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+x[i];
writeln(tb/n:4:2);
readln;
end.
Program tinh_tong;
Var i,n,s:integer;
Begin
S:=0;
Write('nhap n =');readln(n);
For i:= 1 to n do s:= s+i;
Write('tong',n,'so tu nhien dau tien = ',s);
Readln
End.
minh khong biet co dung khong nhung co gang lam bai that tot nhe chuc ban may man
Cau 1:
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n>0 && n%5==0) cout<<"Phai";
else cout<<"Khong phai";
}
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);
readln;
end.
program andanh;
uses crt;
var i,n,tong,a:integer;
begin
clrscr; tong:= 0;
repeat
write('Nhap so cac so: ');readln(n);
if n > 10 then
begin
write('Nhap so be hon 10. Hay nhap lai');
delay(2000);
clrscr;
end;
until n <= 10;
for i:= 1 to n do
begin
write('Nhap so thu ',i,': ');
readln(a);
tong:= tong + a;
end;
write('Trung binh cong cua cac so tren la: ',tong/n:2:2);
readln
end.