Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
39 _ 7G1_ Trương Uyển Uy...
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2022 lúc 0:12

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

if i mod 2=0 then write(i:4);

readln;

end.

Tiến
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 20:03

uses crt;

var i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

dem:=0;

for i:=1 to n do 

  if i mod 2=0 then 

begin

inc(dem);

write(i:4);

if dem=15 then writeln;

end;

readln;

end.

Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:08

Sơn Tùng MTP
Xem chi tiết
Hồ Thị Linh Chi
Xem chi tiết
The8BitImage
4 tháng 5 2019 lúc 20:32

mình cố gắng giải cho bạn, bạn xem có đúng ko

Hỏi đáp Tin học

The8BitImage
4 tháng 5 2019 lúc 20:58

Mình gửi lại cho bạn Mình xin lỗi vì đã làm thiếu

s phải là real nha

vì nhân lên nó có giá trị cao hơn integer nên phải chọn real

Bài 5. Từ bài toán đến chương trình

The8BitImage
4 tháng 5 2019 lúc 21:21

Mình sửa lại đây

Bài 5. Từ bài toán đến chương trình

Cao Ngọc Bảo Quyên
Xem chi tiết
Nhân lê
Xem chi tiết
Phía sau một cô gái
22 tháng 4 2023 lúc 20:43

program TongSoChanTrongDay;

var

      n, i, tong: integer;

      a: array[1..100] of integer;

begin

      tong := 0;

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] mod 2 = 0 then

                  tong := tong + a[i];

      end;

      writeln('Tong cac phan tu chan trong day la: ', tong);

      readln;

end.

Đỗ Thành Nhân
3 tháng 5 lúc 11:13

fgfgfgfgfgfggfgfgfggggfgf

Cá Viên Chiên
Xem chi tiết
Trần Minh Tâm
1 tháng 4 2021 lúc 21:30

program tongchan;

uses crt;

var i,n,s:integer;

     a:array[1..50] of integer;

Begin

Write('n=');readln(n);

for i:=1 to n do

Write('a[,'i',]=');readln(a[i]);

s:=0;

for i:=1 to n do 

if a[i] mod 2 = 0 then s:=s+a[i];

if s=0 then write('Trong mang ko co so chan') else write('Tong cac so chan la:,s');

readln;

end.

Nguyễn Lê Phước Thịnh
1 tháng 4 2021 lúc 22:42

uses crt;

var a:array[1..100]of integer;

i,n,t,t1:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

 begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

t1:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then t1:=t1+a[i];

writeln('Tong cac so la: ',t);

writeln('Tong cac so chan la: ',t1);

readln;

end.

NgocTuan
Xem chi tiết
Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 10:11

program Min;
uses crt;
var i,n:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   write('Cac so le nho hon hoac bang ',n,'la :');
   for i:=1 to n do if i mod 2 = 1 then write(i:4);
   readln
end.

NT Phú
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 10 2021 lúc 15:12

1: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,s;

int main()

{

cin>>n;

s=0;

for (i=1; i<=n; i++)

s=s+i*i;

cout<<s;

return 0;

}