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.

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

if a>b then writeln(a+b:4:2)

else writeln(a*b:4:2);

readln;

end.

3 tháng 10 2021

uses crt;
var a,b:longint;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  if(b>a)then writeln(a*b) else writeln(a+b);
 readln;
end.

 

5 tháng 9 2018

Đáp án C

28 tháng 12 2021

2:

#include <bits/stdc++.h>

using namespace std;

double a;

int main()

{

cin>>a;

cout<<a*a;

return 0;

}

19 tháng 11 2021

tùy bạn thôi có nhiều cách khai báo mà

13 tháng 8 2018

Đáp án B

28 tháng 4 2017

Đáp án A

1:

uses crt;

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

i,n,max: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];

for i:=1 to n do 

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

writeln(max);

readln;

end.

2:

uses crt;

var s:real;

i:integer;

begin

clrscr;

s:=0;

for i:=1 to 100 do 

  s:=s+1/i;

writeln(s:4:2);

readln;

end.

Câu 3: 

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

8 tháng 1 2022

Khai báo biến a và b thuộc kiểu Integer