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.
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.
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.
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 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.
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
Bài 2:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a*b;
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.
Var a:array[1..15] of integer;
i,s:integer;
Begin
I:=1;
While i<=15 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
Gợi ý : Câu 1 nhập số lẻ sẽ dễ tìm hơn
Ok rồi nhé cậu :)
bài 1 là tính à?
var i,n:integer;
S,P:longint;
begin
write('nhap n=');readln(n);
P:=0;
S:=0;
for i:=997 downto n do
begin
S:=S+i;
if n mod 2 = 1 then P:=999-(P+S);
end;
write('ket qua la:',P);
readln
end.
p:=999;
for i:= 997 downto n do
begin
if i mod 2 <> 0 then p:=p-i;
end;
write(i);
mk tài trợ .
Mk cũng đi thi tin học trẻ nhưng cái này có vẻ max khó ==))
Đoàn Xuân Sơn tks ạ, hèn j cứ thấy sai sai
Câu 2 :
program a: integer ;
S: real ;
begin
write('nhap n:'); readln(n);
S:=(a+sqrt(3))/(a+sqrt(6)) ;
write('ket qua la',S); readln
end.
sửa
write('nhap a:'); readln(a);
Câu 2:
Program lam_cho_vui;
Uses Crt;
Var a, H : Real;
Begin
Clrscr;
Writeln ('Nhap so a = ');
Readln (a);
H := (a + Sqrt(3))/(a + Sqrt(6));
Writeln ( ' Ket qua cua bieu thuc la = ', H :0:1);
Readln;
End.
.
Câu 3:
INPUT: Các số \(\overline{abc}\) , \(\overline{bcd}\) , \(\overline{cda}\), \(\overline{dab}\)
OUTPUT: Tính tổng các số trên thành kết quả \(\overline{abcd}\)
Câu 3 đề đúng chứ ? Tính tổng ?
Ầu, thế giờ t kêu gọi tick thì bạn có nhận không?
bảo nam trần nó nói you đó ==
trauvuathoibantrea :))
Mấy em nhỏ cứ tưởng thế là ngầu
Ngu xuẩn
Việt Hoa Nguyễn tặng 6GP chứ mình không mất GP nhé.
Chỉ gian lận thì mới bị trừ GP thôi nhé.
Nguyễn Thị Ngọc Thơ Nguyễn Minh Huyền chắc vì 1 GP để bọn mình tick cho nó dù bị chửi là chó đây mà.
Nguyễn Công TỉnhNguyễn Thị Ngọc Thơ
chời đụ má =)) Mấy bạn nhỏ hám fame, cầu tương tác, nulo được chửi mấy câu các bạn ấy lại sướng rên =))
thiên tài..........
???
giải toán à :|
like hộ
cút hộ
if n mod 2 =1 thì n số chẵn sẽ in ra 0
đáng lẽ là i mod 2 =1 chứ
mà nhập xong hắn chạy vẫn đúng mà a?
tick hộ
theo dõi hộ
à write(p) nha lộn
vậy thì mình sẽ giúp bạn 1 tay
thanks