1+1=?
xin các bạn hãy giúp tôi vì nó quá khó
tiện thể xin luôn fb các bạn
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.
mk sẽ lấy 3 câu trả lời nhanh nhất sẽ đc mk k nha m.n
program tongduong;
uses crt;
var a:array[1..100] of integer;n,i,s:integer;
begin
clrscr;
s:=0;
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin writeln('a[',i,']= ');readln(a[i]); end;
for i:=1 to n do if a[i] mod 2 = 0 then s:=s+a[i];
write(' Tong cac so duong trong day la',s);
readln
end.
Bạn the pie mới có lệnh nhập độ dài của dãy còn chưa có lệnh nhập các phần tử trong dãy nhé :)))
uses crt;
var a:array[1..249]of integer;
i,n,t,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<250);
Có 3 vòng lặp
Giá trị cuối cùng của s=2
k cho mk nha
Màn hình sẽ in ra giá trị: 3 7
Giải thích:
Câu lệnh if i mod 3=0 then j:=j+1 có nghĩa là j bằng một cộng với số các số chia hết cho 3.
k:=k+j có nghĩa là k bằng bốn cộng với giá trị của j đã tìm.
vì câu lệnh \(for\text{ }i:=\text{ 4 }to\text{ 10}\) nên vòng lặp trên lặp \(10-4+1=7\)lần
mỗi vòng lặp đều tăng j thêm 2 đơn vị \(\left(j:=j+2\right)\)nên sau khi kết thúc
giá trị của j là\(j=0+2\times7=14\)
khoanh B
Program lap; Var i: integer; Begin For i:=1 to 5 do write('a'); Readln End.
Program lap;
Var i: integer;
Begin
For i:=1 to 5 do write('A');
Readln
End.
có thể bằng 2, 1 và 11
bằng 1 vì 1 giọt nước cộng 1 giọt nữa thì vẫn là 1 giọt
còn bằng 11 vì 1 thêm một số 1 nữa là 11
1+1=2
hok tốt