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.

23 tháng 12 2020

uses crt;

var a,m,i:integer;

s:real;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap m='); readln(m);

s:=1;

for i:=1 to m do 

  s:=s+1/sqr(a+i);

writeln(s:4:2);

readln;

end.

9 tháng 5 2023

Program HOC24; 

var i,n: integer;

s: real;

begin

s:=0; n:=2;

while s<=0,785 do

begin

s:=s+1/n;

n:=n+2;

end;

write('S = ',s);

readln

end.

24 tháng 12 2018

1)var a,b,c:real;

begin

write('a=');readln(a);

write('b=');readln(b);

write('c=');readln(c);

if (a+b>c) or (a+c>b) or (b+c>a) then writeln(' la 3 canh cua tam giac ')

else writeln(' khong phai la 3 canh cua tam giac ');

readln;

end.

24 tháng 12 2018

2) var a,b:integer;

begin

write(' Chieu cao ban A: ');readln(a);

write(' Chieu cao ban B: ');readln(b);

if a=b then writeln(' Chieu cao 2 ban bang nhau ');

if a>b then writeln(' Ban A cao hon ban B')

else writeln(' Ban B cao hon ban A ');

readln;

end.

Câu 6:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

if n mod i=0 then write(i:4);

readln;

end.

5:

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=0 to n do

if i mod 2=1 then 

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.

19 tháng 12 2021

2:

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a%b<<endl;

cout<<a/b;

return 0;

}