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;
cout<<fixed<<setprecision(2)<<1/(a*1.0+b*1.0);
return 0;
}
Câu lệnh lặp Tiết 43
Câu 1:
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
writeln('Ket qua la: ',s);
readln;
end.
Câu 2:
uses crt;
var i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
Câu lệnh lặp Tiết 44
Câu 1:
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('Ket qua la: ',s:4:2);
readln;
end.
Câu 2:
uses crt;
var i,n,gt:longint;
begin
clrscr;
write('nhap n='); readln(n);
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(n,'!=',gt);
readln;
end.
Bài 1:program sothuc;
uses crt;
var a:array[1..10] of real;s,i,j:real;
begin
s:=0;
for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;
for i:=1 to 10 do if a[i]<0 then
for j:=1 to 10 do
begin a[j]:=sqr(a[i]); s:=s+a[j]; end;
writeln('tong binh phuong cac so am la: ',s:2:2); readln;
end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)
Bài 2:
program soduong;
uses crt;
var a:array[1..100] of integer;s,i,n:integer;
begin
clrscr;
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin
writeln('a[',i,']=');readln(a[i]);
if a[i] mod 2 = 0 then s:=s+a[i] end;
writeln('tong so duong trong day la',s:2:0);readln
end.
Bài 3: các số dương mà là số lẻ là sao thế bạn????
Câu 1: Màn hình sẽ báo lỗi vì giá trị cuối là một số thực
Câu 2: Var a:array[1..12]of integer;
Lập chương trình Pascal để in bảng cửu chương ra màn hình.
Var
a:array[1..9,1..9] of Integer ;
i,j:byte ;
BEGIN
Clrscr ;
For i := 1 to 9 do
For j := 1 to 9 do
A[i,j] := i*j ;
For i := 1 to 9 do
Begin
For j := 1 to 9 do Write(a[i,j]:5);
Writeln ;
Writeln ;
End ;
Readln ;
END.
Câu 1:
uses crt;
begin
clrscr;
writeln(2*(1/5+2*2*2));
readln;
end.
Câu 2: n số tự nhiên liên tiếp bắt đầu từ mấy vậy bạn?
Câu 3:
uses crt;
var i,s:longint;
begin
clrscr;
s:=0; i:=1;
while i<=1000 do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
program 06;
Uses crt;
Var
T:real
i;n:integer;
Begin
clrscr;
write('n=1');Readln(n);
T:=06
for i:=1 to n do
T:=\frac{1}{1}.2+\frac{1}{2}.5+\frac{1}{3}.8+\frac{1}{4}.11
write('T=06'; T);
readln;
end.