Những câu hỏi liên quan
nguyễn hoàng lê thi
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 12 2020 lúc 21:14

1:

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if (a>0) and (b>0) then writeln('Cung dau');

if (a<0) and (b<0) then writeln('Cung dau');

if (a>0) and (b<0) then writeln('Khac dau');

if (a<0) and (b>0) then writeln('Khac dau');

readln;

end.

2: 

uses crt;

var n,i,d,t,x,y:integer;

st:string;

begin

clrscr;;

repeat

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

until (100<=n) and (n<=999);

str(n,st);

d:=length(st);

t:=0;

for i:=1 to d do 

  begin

val(st[i],x,y);

if x mod 2=1 then t:=t+x;

end;

writeln('Tong cac chu so le cua ',n,' la: ',t);

readln;

end.

Bình luận (0)
phamthiminhanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 1 2021 lúc 20:13

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if (a>0) and (b>0) then writeln('Cung duong');

if (a<0) and (b<0) then writeln('Cung am');

if (a>0) and (b<0) then writeln('Duong am');

if (a<0) and (b>0) then writeln('Am duong');

readln;

end.

Câu 2: 

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if (a mod 2=0) and (b mod 2=0) then writeln('Cung chan');

if (a mod 2<>0) and (b mod 2<>0) then writeln('Cung le');

if (a mod 2=0) and (b mod 2<>0) then writeln('Chan le');

if (a mod 2<>0) and (b mod 2=0) then writeln('Le chan');

readln;

end.

Bình luận (1)
tho hit co
Xem chi tiết
Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
15 tháng 8 2018 lúc 7:57

Mỗi biểu thức thường có nhiều cách viết. Dưới đây là một trong các cách viết:

       ( 5 – 5 ) x 5 x 5 x 5 = 0 ( bất cứ số nào nhân với 0 cũng bằng 0 )

                        ( 5 + 5 ) : 5 – 5 : 5          = 1

      ( 5 + 5 ) : 5 + ( 5 – 5 )    = 2

                        ( 5 + 5 ) : 5 + 5 : 5         = 3

                        ( 5 + 5 + 5 + 5 ) : 5        = 4

                        5 : 5 x 5 : 5 x 5              = 5

                        5  : 5 + 5 : 5 x 5            = 6

                        5 : 5 + 5 : 5 + 5             = 7

                        ( 5 + 5 + 5 ) : 5 + 5       = 8

                        ( 55 – 5 – 5 ) : 5             = 9

                       5 x 5 – ( 5 + 5 + 5 )       = 10

Bình luận (0)
Võ Thanh Hậu
Xem chi tiết
Khúc Mạnh Trí
Xem chi tiết
Bùi Lê Thanh Trúc
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 4 2022 lúc 8:21

uses crt;

var n,i,t,s:integer;

begin

clrscr;

repeat

readln(n);

until n<>0;

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

writeln(t);

s:=1;

for i:=1 to n do 

  if i mod 2=1 then s:=s*i;

writeln(s);

readln;

end.

Bình luận (0)
Nguyễn Thị MinhThư_
Xem chi tiết
Nguyễn Thu Phương
31 tháng 12 2015 lúc 14:50

Câu 1:{1;2;3;6;8;9;18}

Câu 3:56

 

Bình luận (0)
Nguyễn Thị MinhThư_
Xem chi tiết