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.
Câu 1:
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
int main()
{
cin>>a>>b>>c;
cout<<fixed<<setprecision(2)<<(a+b+c)/3;
return 0;
}
Câu 1:
program cau1;
uses crt;
var i: integer;
begin
clrscr;
A:=0;
for i:=1 to 99 do
A:=A+1/(i*(i+1));
write('Ket qua cua phep tinh A la ',A);
readln
end.
Câu 2:
program cau2;
uses crt;
var a,b,c,p,s: real;
begin
clrscr;
write('Do dai canh a la '); read(a);
write('Do dai canh b la '); read(b);
write('Do dai canh c la '); read(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write('Dien tich tam giac do la ',s:5:2);
readln
end.
Câu 2:
Program nii;
Uses crt;
Var a,b,c,A:integer;
Begin
Write ('nhap a');
Readln (a);
Write ('nhap b');
Readln (b);
Write ('nhap c');
Readln (c);
A:=a;
If A<b then A:=b;
If A<c then A:=c;
Write ('Ket qua',A);
Readln;
End.
Câu 1
Program ntg;
Uses crt;
Var A,x,y:integer;
Begin
Write ('nhap x');
Readln (x);
Write ('nhap y');
Readln ('y');
A:=x+y;
Write ('Ket qua',A);
Readln;
End.
Program HOC24;
var n,d,i: integer;
B: array[1..100] of integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
d:=0; t:=0;
for i:=1 to n do
if b[i]>0 then
begin
d:=d+1;
t:=t+b[i];
end;
writeln('Tong cac so duong trong day so la: ',t);
write('Co ',d,' so duong trong day');
readln
end.
uses crt;
var b:array[1..100] of longint;
n,i,d,s:longint;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(b[i]);
if b[i]>0 then begin
inc(d);
inc(s,b[i]);
end;
end;
writeln('Tong cac so duong: ',s);
writeln('Co ',d,' so duong');
readln;
end.
Caua1:
program caumot;
begin
writeln('lop 8A chao ban!');
end.
Câu 2:
program cauhai;
int a,b,c :real;
begin
write('a='); readln(a);
write('b='); readln(b);
c= a+b;
write('Tong hai so a b la:',c);
end.
Câu 1:
s=0; i=0
Vòng lặp thứ 1: i<3 -> đúng -> i=i+1=0+1=1; s=s+i*i=0+1*1=1
Vòng lặp thứ 2: i<3 -> đúng -> i=i+1=1+1=2; s=s+i*i=1+2*2=5
Vòng lặp thứ 3: i<3 -> đúng -> i=i+1=2+1=3; s=s+i*i=5+3*3=14
Vòng lặp thứ 4: i<3 -> sai -> không thực hiện vòng lặp -> kết thúc vòng lặp
Vậy kết quả S in ra màn hình là 14
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writeln(a+b:4:1);
readln;
end.
program b1;
uses crt;
var a,b,s:real;
begin
clrscr;
writeln('Nhap hai so a va b: ');
readln(a,b);
s:=a+b;
write('Tong cua hai so a va b la: ',s:1:1);
readln;
end.
P/S: phần lưu lẫn đặt tên người dùng nào cũng đều làm được.
+ Chọn Save as ở phần File phía góc trái trên cùng rồi đặt tên.
program cau3;
var i:integer;
begin
write('cac uoc cua 102 la:');
for i:=1 to 102 do if 102 mod i = 0 then write(' ',i);
readln
end.
program c2;
var T,a,x : integer ;
Begin
write('nhap gia tri cua a:'); readln(a);
write('nhap gia tri cua x'); readln(x);
T:=a+sqrt(x-a)/sqrt(a-x) ;
write('Ket qua T=',T);
readln
end.
.
.
C3:
Program C3;
Var
i:interger;
Begin
Writeln('Cac uoc cua 102 la:');
For i:=1 to sqrt(102) do
if 102 mod i=0 then write('',i:10:5);
readln;
end.
C2: Program C2;
Var S:integer;
Begin
(1+100)*100/2;
readln(S);
writeln('Tong S bang',S);
readln;
end.
Câu 1:
Program cau_1;
Uses crt;
Var S: Integer;
Begin
Clrscr;
S:=(1+3+5+...+99)+(2+4+6+...+100);
Writeln ('Gia tri cua S la:', S);
Readln;
End.
Câu 2:
Program Cau_2;
Uses crt;
Var T, x, a: Integer;
Begin
Clrscr;
Writeln ('Hay nhap gia tri cua a:'); Readln (a);
Writeln ('Hay nhap gia tri cua x:'); Readln (x);
T:=a+(sqrt(x-a)/sqrt(a-x));
Writeln ('Gia tri cua T la:', T);
Readln;
End.
Câu 3:
Program Cau_3;
Uses Crt;
Var i: Integer;
Begin
Clrscr;
For i:=1 to 102 do
Begin
If 102 mod i = 0 then writeln ('Uoc cua 102 la:' i);
End;
Readln;
End.
C3: bạn ơi sao lại for i:= 1 to sqrt(102) do
C2: Bạn chưa gán giá trị của S nên chưa chạy được đâu
C1: bạn phải chỉ ra rõ ràng
C2;C3 bạn cop của các bạn đã trả lời trước đó nên mình sẽ ko tính
var a,x : integer ;
T : real;
B (Erik) Vì nếu một số là số nguyên tố thì nó phải không chia hết cho các số tự nhiên có bình phương nhỏ hơn nó.
C1: Program C1;
Var S:integer;
Begin
S:=(1+100)*100/2;
Writeln('Tong la',S:10:5);
readln;
end.
C2: Program C2;
Var
T:real; a,x: integer;
Begin
Writeln('Hay nhap a:');
readln(a);
Writeln('Hay nhap x:');
readln(x);
T:=a+(sqrt(x-a))/(sqrt(a-x));
Writeln('Bieu thuc T bang:',T:10:5);
readln;
end.
B (Erik)
Bạn ơi, câu 2 câu 3 nếu giống bạn có thể nói là có người làm rồi hoặc gì đó.
Tại sao phải nói là cop của người khác?
Bạn thấy à?
Biết nói vậy là sỉ nhục người khác lắm không? Bạn có biết tôn trọng người khác không? Nếu cái đúng nó theo một khuôn thì t không làm giống chả lẽ giả vờ làm sai? Chấp nhận là có người làm rồi! T cũng không so đo 2, 3 cái GP nhưng làm ơn tôn trọng người ta một chút!
trả lời hơi bị trễ mn trả lời hết rồi còn có 1 câu
Câu 1
program dfkjgh;
uses crt;
var i,s:integer;
begin
clrscr;
for i:1 to 100 do s=s+i;
write('gia tri cua s la',' ',s);
readln;
end.
tin giừ ko ai để ý nữa nhỉ .hình như ko có CTV bên tin luôn ấy
tin cũng là 1 môn hay mà
Best
híp bạn ơn chấm thêm 2 cái nữa mới đủ phần thưởng ạ
uk