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.

30 tháng 11 2017

program bai1;

uses crt;

var a,b,t,Vtb,dds:real;

begin

write('Nhap chieu rong san ');readln(a);

write('Nhap chieu dai san ');readln(b);

write('Nhap thoi gian chay ');readln(t);

dds:=(a+b)*2;

writeln('Do dai san chay la ',dds);

Vtb:=dds/t;

writeln('Van toc trung binh cua ban do la: ',Vtb:10:2);

readln

end.

Thông tin bạn Ân thì bạn tự thêm vào nhé...

30 tháng 11 2017

hắn ns khó con tau ns dễ

vài bữa còn tính xn nữa chơ phải mô

17 tháng 11 2021

uses crt;

var cao:array[1..60]of real;

i,n:integer;

max,min:real;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do

begin

write('Chieu cao cua ban thu ',i,'='); readln(cao[i]);

end;

max:=cao[1];

min:=cao[1];

for i:=1 to n do

begin

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

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

end;

writeln('Chieu cao thap nhat la: ',min:4:2);

writeln('Chieu cao cao nhat la: ',max:4:2);

readln;

end.

18 tháng 11 2021

#include<iostream>

using namespace std;

int main() {

    int a, b, c, d, e;

    cin >> a >> b >> c >> d >> e;

    int g = a + b + c + d + e;

    cout << g / 5;

    return 0;

}

18 tháng 11 2021

tham khảo

 

uses crt;

var cao:array[1..60]of real;

i,n:integer;

max,min:real;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do

begin

write('Chieu cao cua ban thu ',i,'='); readln(cao[i]);

end;

max:=cao[1];

min:=cao[1];

for i:=1 to n do

begin

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

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

end;

writeln('Chieu cao thap nhat la: ',min:4:2);

writeln('Chieu cao cao nhat la: ',max:4:2);

readln;

end.

18 tháng 11 2021

Tham khảo

uses crt;

var cao:array[1..60]of real;

i,n:integer;

max,min:real;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do

begin

write('Chieu cao cua ban thu ',i,'='); readln(cao[i]);

end;

max:=cao[1];

min:=cao[1];

for i:=1 to n do

begin

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

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

end;

writeln('Chieu cao thap nhat la: ',min:4:2);

writeln('Chieu cao cao nhat la: ',max:4:2);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

double a[1000],t;

int n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t=0;

for (i=1; i<=n; i++) t+=a[i];

cout<<fixed<<setprecision(2)<<t/(n*1.0);

return 0;

}

1 tháng 12 2021

giúp em với

 

1 tháng 12 2021

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

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

write('b='); readln(b);

c= a+b;

write('Tong hai so a b la:',c);

end.