Viết chương trình nhập số tự nhiên n. In ra tổng các số tự nhiên lẽ
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.
NM
0
DH
3 tháng 5 2022
Tham khảo :
program tinh_dien_tich_chu_vi;
uses crt;
var a,b,s,cv:real;
begin
clrscr;
write('nhap do dai canh a: ');readln(a);
write('nhap do dai canh b: ');readln(b);
cv:=(a+b)*2;
s:=a*b;
writeln('chu vi cua nhinh chu nhat la: ',cv,' va dien tich cua hinh chu nhat la: ',s);
readln;
ML
3 tháng 5 2022
Program HOC24;
var d,i,n: integer;
a: array[1..1000] of integer;
begin
write('Nhap do dai cua day: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
d:=0;
for i:=1 to n do if a[i] mod 2=1 then d:=d+1;
write('Co tat ca ',d,' gia tri le');
readln
end.
BK
0
LV
0