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.

3 tháng 5 2021

Uses crt;

Var i,n,k,tong:integer;

      tb:real;

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

      f1,f2:text;

Begin

clrscr;

Assign(f1,'SONGUYEN.inp');

Assign(f2,'SONGUYEN.out');

Reset(f1);Readln(f1,n);

For i:= 1 to n do read(f1,a[i]);

close(f1);

k:=0;tong:=0;

For i:= 1 to n do If (a[i]<0) and (Abs(a[i]) mod 2 = 1) then

  Begin

  inc(k);

  tong:=tong+a[i];

  End;

tb:=tong/n;

Rewrite(f2);

writeln(f2,tb:0:2);

Writeln(f2,k);

close(f2);

readln;

End.

Câu 2: 

const fi='xauhoa.inp';

fo='xauhoa.out';

var f1,f2:text;

st,s1:string;

d,i:integer;

begin

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

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

readln(f1,st);

d:=length(st);

s1:='';

for i:=1 to d do 

  if st[i] in ['A'..'Z'] then s1:=s1+st[i];

writeln(f2,s1);

writeln(f2,length(s1));

close(f1);

close(f2);

end.

12 tháng 12 2021

3:

#include <bits/stdc++.h>

using namespace std;

double x,y;

int main()

{

cin>>x>>y;

cout<<fixed<<setprecision(2)<<sqrt(x*x+y*y);

return 0;

}

Bn ơi bn viết r chụp lên đc k ạ ? Mik k định dạng đc ý

30 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

double a,s;

int main()

{

cin>>a;

s=1/2*a*a;

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

return 0;

}

30 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

double a,s;

int main()

{

cin>>a;

s=1/2*a*a;

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

return 0;

}

31 tháng 10 2021
ĐúngTrue
|x|=2abs(x)=2

 

30 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin>>x>>y;

cout<<x<<" "<<y;

return 0;
}

1:

uses crt;

var st:string[50];

begin

clrscr;

write('Nhap xau:'); readln(st);

writeln('So luong ki tu la: ',length(st));

readln;

end.

Giúp mik với ạ. Bài nào cũng được ạCâu 1 Trong Pascal biểu thức (22 div 3 +26 mod 3 – 3) bằng bao nhiêu?Câu 2 Để 3 gía trị của A, B, C tạo thành độ dài 3 cạnh của một tam giác ta viết biểu thức trong pascal ntn cho đúng?Câu 3 Hãy tìm ra lỗi sai và sửa lại chương trình sau cho đúng? Var a, b, thuong=real; Begin Writeln(‘nhap a va b); readln(a; b); Thuong= a div b; Writeln(‘thuong cua hai so la:’ thuong); Readln; end.Câu 4: Chuyển biểu thức...
Đọc tiếp

Giúp mik với ạ. Bài nào cũng được ạ

Câu 1 Trong Pascal biểu thức (22 div 3 +26 mod 3 – 3) bằng bao nhiêu?

Câu 2 Để 3 gía trị của A, B, C tạo thành độ dài 3 cạnh của một tam giác ta viết biểu thức trong pascal ntn cho đúng?

Câu 3 Hãy tìm ra lỗi sai và sửa lại chương trình sau cho đúng? Var a, b, thuong=real; Begin Writeln(‘nhap a va b); readln(a; b); Thuong= a div b; Writeln(‘thuong cua hai so la:’ thuong); Readln; end.

Câu 4: Chuyển biểu thức toán học sau sang Pascal: z=

Câu 5: Sửa lỗi cho đoạn chương trình sau và cho biết kết quả hiển thị trên màn hình sau khi thực hiện đoạn chương trình đó: a:=10; a:=a+2; b:=a Writeln( Tong cua a va b la: a+b );

Câu 6: Viết chương trình tính và đưa ra màn hình khoảng cách giữa hai điểm A(x1,y1) và B(x2,y2) trong mặt phảng tọa độ Oxy ra màn hình. (x1,y1,x2,y2 là các số thực được nhập từ bàn phím). Giúp mình với bài nào cũng được ạ

2
29 tháng 10 2021

Câu 1: 22 div 3+26 mod 3-3=7+8-3=12

30 tháng 10 2021

Câu 2: 

(a+b>c) and (a+c>b) and (b+c>a) and (a>0) and (b>0) and (c>0)