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.
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
if (a<b) cout<<a;
return 0;
}
chương trình có chạy được không vậy bạn, mình thấy một đống lỗi rồi đấy
#include <bits/stdc++.h>
using namespace std;
long long s1,s2,s3,s4,i;
int main()
{
s1=0;
for (i=1; i<=100; i++) s1=s1+i*i;
s2=0;
for (i=1; i<=100; i++) if (i%2==1) s2+=i;
s3=0;
for (i=1; i<=100; i++)
{
if (i%2==1) s3+=i*i;
else s3-=i*i;
}
s4=0;
for (i=1; i<=100; i++)
{
if (i%2==1) s4+=i;
else s4-=i;
}
cout<<s1<<" "<<s2<<" "<<s3<<" "<<s4;
return 0;
}
tất cả các câu đều là s:=s+i hay s:=s+1/sqr(i)..vân vân bạn ạ
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 :
a) (a+b)*(a+b)*(d+e)
b) a*x*x+b*x*x+c*x
Câu 2: Mình không hiểu đề lắm? Đặt cái gì cơ?
Câu 3:
Uses crt;
Var S,a,b:real;
Begin
clrscr;
Writeln('Nhap chieu dai a = '); Readln(a);
Writeln('Nhap chieu rong b = '); Readln(b);
S := a*b;
Write('Dien tich hinh chu nhat la ', S );
Readln;
End.
xin lỗi mk lộn nêu qui tắc đặt ngôn ngữ lập trình trong pascal
uses crt;
var i,n,j,dem:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
dem:=0;
for j:=1 to i do
if i mod j=0 then inc(dem);
if dem=3 then write(i:4);
end;
readln;
end.
var n,i,dem:longint;
function cp(so:longint):boolean;
begin
if sqr(trunc(sqrt(so)))=so then exit(true)
else exit(false);
end;
function nt(so:longint):boolean;
var k:longint;
begin
if (so=2) or (so=3) then exit(true);
if (so=1) or (so mod 2=0) or (so mod 3=0) then exit(false);
k:=5;
repeat
if (so mod k =0) or (so mod (k+2)=0) then break;
inc(k,6);
until k>trunc(sqrt(so));
exit(k>trunc(sqrt(so)));
end;
begin
write('nhap n:');readln(n);
dem:=0;
for i:=1 to n do
begin
if (cp(i)) and (nt(trunc(sqrt(i)))) then
begin writeln(i); inc(dem); end;
end;
write(dem);
readln;
end.
code này chạy khoảng 9s nhé! còn cách tối ưu hơn mong mọi người chỉ bảo!
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.
input: các số a,b,c
output: in a,b,c ra màn hình
program in;
var a,b,c:integer;
begin
write('cac so a,b,c lan luot la:');
for a:=1 to 9 do
for b:=1 to 9 do
for c:=1 to 9 do
if a*100+b*10+c=a*a*a+b*b*b+c*c*c then write(a,' ',b,' ',c);
readln
end.