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.

6 tháng 11 2018

Program (Bạn tự đặt lấy nha)

Var a, b, S: Integer

Begin

         Readln(a, b);

         S:=a+b;

         Writeln(S);

End.

Chúc bạn học giỏi

a) xác định

input: x

output: x là chẵn hay lẻ

b) 

B1: nhập x

B2: Nếu x chia hết cho 2 thì x là số chẵn, không chia hết thì là số chẵn

B3: trả lời số x là số chẵn hay là số lẻ

B4: kết thúc thuật toán.

c)

var

x:integer;

begin

write("nhập x=");

readln(x);

if x mod 2=0 then writeln(x," là số chẵn")

else

writeln(x," là số lẻ");

readln;

end.

5 tháng 5 2019

chịu nạ

11 tháng 2 2021

program chia;

uses crt;

var n,i:integer;

s:real;

begin 

clrscr;

s:=0;

for i:=2 to 50 do s:=s+1/i;

writeln('Tong la ',s:1:2);

readln;

end.

 

 

a) 

input: a

output: a có chia hết cho 3 ko?

b)

B1: nhập a

B2: nếu a mod 3=0 thì a chia hết cho 3, nếu a mod 3 <>0 thì a ko chia hết cho 3

B3: thông báo a chia hết cho 3 ko

B4: kết thúc.

c)

var 

a:integer;

begin

write('nhập a=');

readln(a);

if a mod 3=0 then wirteln(a,' chia hết cho 3')

else

writeln(a,' ko chia hết cho 3');

readln

end.

12 tháng 12 2019

var n:integer;

begin

 assign(input,'CHIA3.inp');reset(input);

assign(output,'CHIA3.out');rewrite(output);

read(n);

if n mod 3 = 0 then write('n chia het cho 3')

else write('n khong chi het cho 3');

end.