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.

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.

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.

Uses crt;

Var

S,i,n:Integer;

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

BEGIN

Write( ‘ Nhap so n:’ );

 Readln( n );

For i:=1 to n do

begin

 a[i]:=i;

 s:=s+a[i]

end;

Writeln( ‘Tong = ’, S);

Readln;

END.

20 tháng 12 2018

tin hả 

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.