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.

28 tháng 10 2021

Kiểm tra xem tam giác đó là tâm giác đều hay không

30 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

if ((a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a)) cout<<"Day la ba canh trong mot tam giac";

else cout<<"Day khong la ba canh trong mot tam giac";

return 0;

}

1:

const fi='Dulieu.txt';

fo='ketqua.txt';

var f1,f2:text;

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

i,n:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eof(f1) do 

  begin

inc(n);

read(f1,a[n]);

end;

for i:=1 to n do 

  if (a[i]>0) and (a[i] mod 2=0) then write(f2,a[i]:4);

close(f1);

close(f2);

end.

P/s: Cái này mình viết chương trình chính thôi nhé, còn hàm và thủ tục bạn tự viết nhé(chỉ cần lấy ý tưởng trong chương trình chính ra viết là được rồi)

2:

uses crt;

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

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

 begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  if a[i]>=0 then t:=t+a[i];

writeln(t);

readln;

end.

8 tháng 8 2023

#include <iostream>

using namespace std;

int main() {

     int x, y;

     cin >> x >> y;

     int temp = x;

     x = y;

     y = temp;

     cout << "x=" << x << endl;

     cout << "y=" << y << endl;

     return 0;

}

#include <bits/stdc++.h>

using namespace std;

double a,b,c,p,s;

int main()

{

cin>>a>>b>>c;

if (a+b>c && b+c>a && c+b>a)

{

p=(a+b+c)/2;

s=sqrt(p*(p-a)*(p-b)*(p-c));

cout<<fixed<<setprecision(2)<<s;

}

else cout<<"Day khong la ba canh trong mot tam giac";

return 0;

}

 

1)     Viết chưng trình nhập vào 3 số nguyên a,b,c. Đưa ra màn hình giá trị lớn nhất trong chúng.VDDữ liệu nhập vàoKết quả ra màn hình4266886633882)     Nhập một ký tự. Cho biết ký tự đó có phải là chữ cái hay không. Nếu có ghi ra là “YES”, ngược lại ghi ra “NO”.Dữ liệu nhập vào      Kết quả ra màn hìnhTYESAYESZYES1NO@NO 1)     Viết chưng trình nhập vào 3 số nguyên a,b,c. Đưa ra...
Đọc tiếp

1)     Viết chưng trình nhập vào 3 số nguyên a,b,c. Đưa ra màn hình giá trị lớn nhất trong chúng.

VD

Dữ liệu nhập vào

Kết quả ra màn hình

4

2

6

6

88

66

33

88

2)     Nhập một ký tự. Cho biết ký tự đó có phải là chữ cái hay không. Nếu có ghi ra là “YES”, ngược lại ghi ra “NO”.

Dữ liệu nhập vào     

Kết quả ra màn hình

T

YES

A

YES

Z

YES

1

NO

@

NO

 

1)     Viết chưng trình nhập vào 3 số nguyên a,b,c. Đưa ra màn hình giá trị lớn nhất trong chúng.

VD

Dữ liệu nhập vào

Kết quả ra màn hình

4

2

6

6

88

66

33

88

2)     Nhập một ký tự. Cho biết ký tự đó có phải là chữ cái hay không. Nếu có ghi ra là “YES”, ngược lại ghi ra “NO”.

Dữ liệu nhập vào     

Kết quả ra màn hình

T

YES

A

YES

Z

YES

1

NO

@

NO

 

3)     Cho hai số nguyên dương a và b (a,b<= 106). In ra ước chung nhỏ nhất và bội chung nhỏ nhất của a và b.

3)     Cho hai số nguyên dương a và b (a,b<= 106). In ra ước chung nhỏ nhất và bội chung nhỏ nhất của a và b.

0
9 tháng 11 2016

1.uses crt;

var n,gt:longint;

begin

clrscr;

repeat

write('nhap so n:');readln(n);

until n>0;

gt:=1;

while n>0 do

begin

gt:=gt*n;

n:=n-1;

end;

writeln('giai thua cua n la:',gt);

readln

end.

2. uses crt;

var a,b,c:real;

begin

clrscr;

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

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

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

if (a*a=b*b+c*c) or (b*=c*c+a*a) or (c*c=a*a+b*b) then writeln('khong phai la tam giac vuong');

readln

end.

 

23 tháng 11 2016

Cái chỗ chữ " repeat " cần thêm chữ " begin " nữa !

23 tháng 8 2023

m = int(input("Nhập số hàng của ma trận: "))

n = int(input("Nhập số cột của ma trận: "))

A = []

for i in range(m):

  # Nhập một dòng gồm n số nguyên cách nhau bởi dấu cách

  row = list(map(int, input(f"Nhập dòng {i+1}: ").split()))

  A.append(row)

# In ma trận A ra màn hình

for i in range(m):

  for j in range(n):

   print(A[i][j], end=" ")

  print()