Viết chương trình nhập vào 2 số nguyên dương A,B (1≤A<B≤1000) từ bàn phím. Tính tổng các số lẻ trong đoạn từ A đến B Giúp mình với

var a,b,i,t:longint; begin readln(a,b);t:=0; for i:=a to b do if i mod 2=1 then t:=t+i; write(t); readln end.

Viết chương trình nhập vào 2 số nguyên dương A,B (1≤A

30/07/2021

By Arya

Viết chương trình nhập vào 2 số nguyên dương A,B (1≤A { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình nhập vào 2 số nguyên dương A,B (1≤ATrả lời

uses crt;
var a,b,t,i:longint;
function tong(a,b:longint):longint;
begin
for i:=a to b do if i mod 2=1 then inc(t,i);
writeln(‘Tong cac so le: ‘,t);
end;
begin
clrscr;
write(‘a,b= ‘);readln(a,b);
tong(a,b);
readln
end.

Trả lời

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