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.

7 tháng 3 2021

uses crt;

var n,i,x:integer;

begin

writeln('Nhap so: ');readln(n);

For i:=1 to 9 do writeln(n,'x',i,'=',n*i);

readln

end.

15 tháng 5 2021

uses crt;

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

begin

write('nhap do dai day');readln(n);

for i:=1 to n do begin writeln('a[',i,']');readln(a[i]);

if a[i] mod 2= 0 then write('so duong ', a[i],' ');end;

readln

end.

19 tháng 10 2021

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

double a,b,cv,dt;

int main()

{

cin>>a>>b;

cv=(a+b)*2;

dt=a*b;

cout<<"Chu vi la:"<<fixed<<setprecision(2)<<cv<<endl;

cout<<"Dien tich la:"<<fixed<<setprecision(2)<<dt;

return 0;

}

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long x,n;

int main()

{

cout<<x<<n;

cout<<pow(x,n);

return 0;

}

2: 

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,ln;

int main()

{

ln=LLONG_MIN;

cin>>n;

for (i=1; i<=n; i++)

{

cin>>x;

ln=max(ln,x);

}

cout<<ln;

return 0;

}

22 tháng 10 2016

pascal chưa nhận được giá trị của h.

22 tháng 10 2016

var a,b,c,P,S:real;

begin

write('nhap a: ');readln(a);

write('nhap b: ');readln(b);

write('nhap c: ');readln(c);

P:=a+b+c;

S:=a*a/2;

writeln('chu vi: ',P);

write('dien tich: ',S);

readln

end.

  • Vì là số đo cạnh tam giác nên bạn nên khai báo bằng kiểu dữ liệu real (số thực) thay vì integer (số nguyên).
  • Phần giá trị biến S, vì a ứng với h nên \(\frac{ah}{2}=\frac{aa}{2}\)
  • Xét tổng quan về nội dung cả hai chương trình này đều chưa đủ. Vì a=h => tam giác cần tìm diện tích và chu vi là tam giác vuông => phải thỏa mãn aa = bb + cc hoặc bb=aa+cc hoặc cc=aa+bb (định lí pitago)
  • Nhưng trước hết, phải thỏa mãn bất đẳng thức tam giác: (dài lắm........ko viết đâu). Nếu bạn chưa học câu lệnh điều kiện thì chắc là 2 chương trình này đã đủ nội dung.
17 tháng 8 2021

Cách đơn giản nhất là dùng câu lệnh
if …
else if…
else

17 tháng 8 2021

bạn viết ra đc kh ạ

18 tháng 10 2016

câu 1:

var x:string

     y:integer

Câu 2:

var a,b:integer

begin

write('hay nhap gia tri cua a')

read(a)

wrietln('hãy nhập giá trị b')

read(b)

t:=a+b

writeln('tông cua a va b la',t)

 

18 tháng 10 2016

? đây là toán mà

2 tháng 5 2021

Mình chỉ viết được pascal được không?

24 tháng 1 2022

dễ mà tự làm đi!