Viết chương trình tính tổng các số lẻ của mảng A gồm 20 phần tử nhập từ bàn phím
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.
- Trong Microsoft Word phiên bản từ 2000 trở lên, F4 sẽ lặp lại các thao tác bạn vừa đã thực hiện. - Alt + F4 đóng cửa sổ chương trình hiện đang hoạt động trong trên máy tính của bạn. - Tổ hợp phím Ctrl + F4 sẽ làm đóng cửa sổ hoặc tab đang mở trong cửa sổ đang hoạt động trên laptop.
Mở thanh địa chỉ trên Windows Explorer và Internet Explorer. - Thực hiện lại hoạt động cuối cùng (trên MS Word). - Ctrl + F4: Đóng cửa sổ đang làm việc, ví dụ như đóng tab một chương trình đang chạy.
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if (a=0) and (b=0) then write('VSN)'
else if (a<>0) then write(b)
else if (b<>0) then write(0)
else write(-b/a);
readln;
end.
program Sum;
varN, i, S: integer;
begin
write('Nhap N: ');
readln(N);
S := 0;
for i := 1 to N do
S := S + i * (3 * i - 2);
writeln('Tong S = ', S);
end.
uses crt;
var x,i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
begin
readln(x);
if x mod 2<>0 then t:=t+x;
end;
write(t);
readln;
end.