K
Khách

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.

1 tháng 5 2019

uses crt;
var i,n,d:longint;
a:array[1..100] of real;
d1:real;
begin
clrscr;
write('Nhap so hoc sinh trong mot lop: '); readln(n);
for i:=1 to n do
begin
write('Diem trung binh cua hoc sinh thu ',i,' la: ');readln(a[i]);
end;
for i:=1 to n do
if a[i]>=5 then inc(d);
writeln('So luong hoc sinh dat diem trung binh tro len la: ',d);
d1:=d/n*100;
write('Ti le hoc sinh dat diem trung binh tro len la: ',d1:0:0,'%');
readln
end.

1 tháng 5 2019

uses crt;

var i,d,n:byte;

a:array[1..10]of real;

begin

write('nhap si so lop :');readln(n);

d:=0;

for i:=1 to n do begin

write('nhap diem tb ban thu ',i,' );readln(a[i]);

if a[i]>5.0 then d:=d+1;

end;

writeln('so luong hs dat diem tb tro len la:',d);

writeln('ti le hs dat diem tb tro len la :', (d/n)*100);

readln

end.

8 tháng 11 2016

Bài 1 :

Uses crt;

Var x,y:integer;

Begin

clrscr;

Readln(x,y);

Write('Tong cua x,y la ',x+y);

Readln

End.

Bài 2 :

Uses CRT;

var x,y,z:integer; tbc:real;

begin

clrscr;

readln(x,y,z);

tbc:=(a+b+c)/3;

Write('Trung binh cong x,y,z la ',tbc:4:2);

Readln

End.

 

8 tháng 11 2016

cám ơn =))))

28 tháng 11 2021

THAM KHẢO:

uses crt;

var a,cv,dt:integer;

begin

clrscr;

write('a='); readln(a);

cv:=a*4;

dt:=sqr(a);

if a>0 then

begin

writeln('chu vi hinh vuong la: ',cv);

writeln('dien tich hinh vuong la: ',dt);

end

else writeln('vui long nhap so a lon hon 0');

readln;

end.

Câu 1:

uses crt;

var n,i,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

if n<2 then writeln(n,' khong la so nguyen to')

else begin

kt:=0;

for i:=2 to n-1 do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

end;

readln;

end.

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a-b;

return 0;

}

11 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

long long x,y,z;

int main()

{

cin>>x>>y>>z;

cout<<x+y+z<<endl;

cout<<x*y*z;

return 0;

}