Bài 1. Máy tính và chương trình trong máy tính

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Huy Tang

viết chương trình nhập 2 số nguyên s và t.

-tính tổng các số lẻ trong đoạn 1 đến s.

-tính tích các số chẵn chia hết cho 6 trong đoạn 1 đến t.

trung bình cộng của 2 số đó là số chia hết cho 10 hay không chia hết cho 10.

<_> giúp mình nhá các bạn!

Trâm Nguyễn Thị Ngọc
21 tháng 12 2018 lúc 18:24

var

s,t,i,t1,t2:integer;

begin

readln(s);readln(t);

Write('tong cac so le la:');

For i:=1 to s do

if i mod 2=1 then t1:=t1+i;

Write('tong cac so le la:',t1);

For i:=1 to t do

if (i mod 6=0) and (i mod 2 =0) then t2:=t2+i;

Write('tong cac so chan chia het cho 6 la:',t1);

readln

end.

Huy Tang
26 tháng 12 2018 lúc 19:59

dung ko vay ban


Các câu hỏi tương tự
VĂN LƯƠNG NGỌC DUYÊN
Xem chi tiết
Rikka Takanashi
Xem chi tiết
Phạm Nguyễn Thanh Ngân
Xem chi tiết
Đào Quyền
Xem chi tiết
Lily Minamoto
Xem chi tiết
Chi Phạm Ngọc Diệp
Xem chi tiết
Le Thi Nhung
Xem chi tiết
Bin
Xem chi tiết
Nguyễn Thị Thu Hiền
Xem chi tiết