Giúp mình với mai kiểm tra rồi
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.
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
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.
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
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.