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.

15 tháng 10 2018

lần sau những câu ko liên quan đến toán thì đừng gửi lên đây nhé

uses crt;

var a,b,c:real;

begin clrscr;

         write('nhap a,b,c:');readln(a,b,c);

         write('trung binh cong la:',(a+b+c)/3:8:2)

readln;end.

21 tháng 6 2020

program hello;

uses crt;

Var n,i,j,k: integer;

a: array[1..50] of integer;

begin;

a[1]:=k;

Readln(n);

For i:=1 to n do

Begin;

Writeln('nhap a[',i,'] '); Readln(a[i]);

End;

For i:=1 to n-1 do

For j:=i+1 to n do

If a[i]<a[j] then k:=a[j];

Writeln('gia tri lon nhat la', k);

end.

20 tháng 12 2018

tin hả 

2 tháng 2 2020

các bạn có thể trả lời nhanh đc ko??? mk đag cần gấp.

2 tháng 2 2020

program UCLN;

uses crt;

var a,b:integer;

begin

          clrscr;

          writeln('Moi ban nhap so a:=');readln(a);

          writeln('Hay nhap so b:='):readln(b);

          While a<>b do

                              if (a>b) then a:=a-b else b:=b-a;

          write('Uoc chung lon nhat la ',a or b);

           readln;

end.