1.tính tổng s=1+2+3+....N (N nhập từ bàn phím) 2. Viết chương trình nhập vào 2 số M N (M<N) đến số chia hết cho 2 trong phạm vi từ M đến N ####ai jup mk vs ạ :<<< tsk trước ạ

Bai 1: Program NN; Uses crt; Var n,i,s: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); s:=0; For i:=1 to n do s:=s+i; Write('S = ',s); Readln End. Bai2: Program NN; Uses crt; Var m,n,i,d: longint; Begin Clrscr; Write('Nhap m,n: '); Readln(m,n); d:=0; For i:=m to n do If i mod 2 = 0 then inc(d); Write('D = ',d); Readln End.

Tin học

1.tính tổng s=1+2+3+-N (N nhập từ bàn phím) 2. Viết chương trình nhập vào 2 số M N (M

02/08/2021

By Alexandra

1.tính tổng s=1+2+3+….N (N nhập từ bàn phím)
2. Viết chương trình nhập vào 2 số M N (M { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " 1.tính tổng s=1+2+3+-N (N nhập từ bàn phím) 2. Viết chương trình nhập vào 2 số M N (MTrả lời

uses crt;
var n,i,s:longint;
begin
clrscr;
write(‘n= ‘);readln(n);
for i:=1 to n do
s:=s+i;
writeln(‘S= ‘,s);
readln
end.

uses crt;
var n,m,i,d:longint;
begin
clrscr;
write(‘m,n= (m<n) ‘);readln(m,n);
for i:=m to n do
if i mod 2=0 then inc(d);
writeln(‘Co ‘,d,’ so chia het cho 2 trong pham vi tu m den n’);
readln
end.

Trả lời

Viết một bình luận Hủy