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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
NM
1
17 tháng 5 2020
uses crt;
var a,i,s:longint;
begin
clrscr;
write('a='); readln(a);
s:=0;
for i:=1 to a do
begin
if i mod 2=1 then s:=s+i
else s:=s-i;
end;
writeln('Ket qua la: ',s);
readln;
end.
NQ
0
C
31 tháng 8 2017
1,
A: Ghi chép lại bài giảng vào vở.
C: Sử dụng máy ghi âm để thu âm 1 bài hát.
D: Chụp ảnh khi tới thăm một danh lam thắng cảnh.
2,
B: Hai học sinh đang thảo luận với nhau để giải bài tập.
D: Người lái xe ô tô đang bóp còi để xin đường, nháy đèn xi nhan trước khi rẻ.
*Mình giải xong rồi nhớ tích cho mình nhé!*
ML
10 tháng 4 2019
Lời giải :
Đề chưa cho kiểu dữ liệu nên mình sẽ làm mảng là thuộc kiểu dữ liệu số nguyên và mình sẽ làm gộp trong 1 chương trình luôn nhé !
Program hotrotinhoc ;
var a: array[1..10] of real ;
i,n : integer ;
begin
write('Nhap cac phan tu cua mang');
{cau a};
for i:= 1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
{cau b};
write('Cac phan tu le la :');
for i:= 1 to 10 do
if a[i] mod 2 = 1 then write(a[i]:2);
{cau c};
writeln('Cac phan tu chan la:');
for i:= 1 to 10 do
if a[i] mod 2=0 then write(a[i]:2);
{cau d};
writeln('Cac phan tu co gia tri bang 5 la :');
for i:= 1 to 10 do
if a[i] = 5 then write(a[i]);
{cau e};
writeln('Cac phan tu chia het cho 3 la :');
for i:= 1 to 10 do
if a[i] mod 3= 0 then write(a[i]:2);
readln
end.
uses crt;
var a,i,n:integer;
s:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap n='); readln(n);
s:=0;
for i:=0 to n do
s:=s+1/(a+i);
writeln(s:4:2);
readln;
end.