Những câu hỏi liên quan
TH
Xem chi tiết
GG
Xem chi tiết
ML
9 tháng 5 2023 lúc 18:33

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.

Bình luận (0)
ND
Xem chi tiết
ND
Xem chi tiết
PT
Xem chi tiết
MT
Xem chi tiết
TN
24 tháng 12 2018 lúc 21:18

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.

Bình luận (0)
TN
24 tháng 12 2018 lúc 21:21

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.

Bình luận (0)
NT
Xem chi tiết
NT
20 tháng 2 2023 lúc 0:38

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.

Bình luận (0)
DH
Xem chi tiết
NT
19 tháng 12 2021 lúc 23:53

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;

}

Bình luận (0)
H24
Xem chi tiết