K
Khách
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.
Những câu hỏi liên quan
ND
24 tháng 10 2021
Cô ơi nhớ em ko người học trò năm ấy em đã từng khóc trước ngày đầu đi nhưng khi từ lúc gặp cô đã em đã nhen nhóm trong mình được 1 ước mơ và cô là người đã dìu dắt chúng em bờ và cô là người dìu dắt em đến tương lai nhưng xa xa đần sẽ nhớ cô tạm biệt mai xa rồi em nhớ cô tạm biệt cả mái trường mến thương tạm biệt tạm biệt tạm biệt tạm biệt cô. Ký tên nam
5 tháng 5 2021
uses crt;
const fi='dlra.txt';
var a:array[1..100]of integer;
i,n,h:integer;
f1:text;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
assign(f1,fi); rewrite(f1);
h:=0;
for i:=1 to n do
if a[i] mod 3<>0 then
begin
write(f1,a[i]:4);
h:=h-a[i];
end;
writeln(f1);
writeln(f1,h);
close(f1);
readln;
end.
TH
4
83
giúp mình với mai mình kiểm tra rồi ạ!
0
30 tháng 3 2022
Mình thì biết giải khúc đầu rồi, nhưng mà chỗ +-2 ở đâu ra thì mình k biết :(( có lên gg coi nhưng k ai giải đáp hết
TH
6
1L
1
11 tháng 3 2022
uses crt;
var s:real;
a,i,n:integer;
begin
clrscr;
readln(a,n);
s:=1;
for i:=1 to n do
if i mod 2=0 then s:=s*(a+i);
writeln(s:0:0);
readln;
end.
