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.

9 tháng 1 2016

a) Tính n cho x:) Tính kiểu nào

b) Tổng các số nguyên từ 5 đến -5 là:

( -5 ) + ( -4 ) + ( -3 ) + ( -2 ) + ( -1 ) + 0 + 1 + 2 + 3 + 4 + 5 = 0
 

9 tháng 1 2016

x=12 hoặc x=-12

Tổng của các số nguyên từ 5 đến -5 là 0 (toàn số đối cộng lại)

tick nha

Câu 1:

uses crt;

var n,i,t1,t2:integer;

begin

clrscr;

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

t1:=0;

t2:=0;

for i:=1 to n do 

  begin

t1:=t1+i;

if i mod 2=0 then t2:=t2+i;

end;

writeln('Tong cac so tu 1 den ',n,' la: ',t1);

writeln('Tong cac so chan tu 1 den ',n,' la: ',t2);

readln;

end.

Câu 2: 

uses crt;

var a,b,i,bcnn:longint;

begin

clrscr;

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

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

bcnn:=a*b;

for i:=a*b-1 downto 1 do 

  if (i mod a=0) and (i mod b=0) then

begin

if bcnn>i then bcnn:=i;

end;

writeln(bcnn);

readln;

end.

8 tháng 12 2021

giúp mình với

 

29 tháng 5 2018

Program bt_3;

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 5 = 0 then Tong:= Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.

4 tháng 1 2017

a)

uses crt;

VAR

n, d, i: integer;

BEGIN

clrscr;

Writeln ('Nhap vao n='); readln (n);

d : = 1;

For i: = 1 to n do

d: = d*i;

Writeln ('d=',d);

Readln;

END.

c)

uses crt;

VAR

n, i, demuoc: integer;

BEGIN

clrscr;

Writeln ('Nhap vao n='); readln (n);

demuoc: = 0;

For i: = 1 to n do

If n mod i = 0 then

demuoc : = demuoc + 1;

If demuoc = 2 then

Writeln ('n la so nguyen to')

ELSE

Writeln ('n khong phai la so nguyen to');

Readln ;

END.

Còn phần b bạn tự nghĩ nha!

Chúc bạn học tốt!

6 tháng 4 2023

Bài 1:

Program HOC24;

var a: array[1..1000] of integer;

i,n,d: integer;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

for i:=1 to n do if (a[i]<0) and (a[i] mod 2=0) then d:=d+1;

write('Co ',d,' so nguyen am chan trong day so');

readln

end.

6 tháng 4 2023

Bài 2:

Program HOC24;

var a: array[1..1000] of integer;

i,n: integer;

t: longint;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do if a[i] mod 5=0 then t:=t+a[i];

write(Tong la: ',t);

readln

end.

8 tháng 3 2023

program songuyenduong;

var

     n, i : integer;

     sum : integer;

begin

     writeln('Nhap vao so nguyen duong N: ');

     readln(n);

     sum := 0;

     for i := 1 to n do

     begin

          if i mod 5 = 0 then

               sum := sum + i;

     end;

     writeln(sum);

end.