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
Hoàng Hải Bình
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 2 2022 lúc 1:13

uses crt;

var n,i,t,x:integer;

begin

clrscr;

readln(n);

t:=0;

while n>0 do 

begin

x:=n mod 10;

if x mod 2=0 then t:=t+x;

n:=n div 10;

end;

writeln(t);

readln;

end.

Lê Hà Vy
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:27

uses crt;

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

n,i,t:integer;

begin

clrscr;

n:=10;

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];

writeln(t);

readln;

end.

Minh Ngọc
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 1 2022 lúc 15:09

uses crt;

var a,t,i:integer;

begin

clrscr;

t:=0;

for i:=1 to 6 do 

  begin

readln(a);

if (a mod 2=0) then t:=t+a;

end;

writeln(t);

readln;

end.

Minh Ngọc
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 3 2022 lúc 9:44

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+i;

writeln(t);

readln;

end.

Minh Ngọc
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 3 2022 lúc 15:46

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+i;

writeln(t);

readln;

end.

Nguyễn Hưng
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 4 2022 lúc 7:15

uses crt;

var i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

i:=0;

while i<=n do 

 begin

i:=i+1;

if i mod 2=0 then t:=t+i;

end;

writeln(t);

readln;

end.

huu nguyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 12 2021 lúc 0:37

#include <bits/stdc++.h>

using namespace std;

long long a;

int main()

{

cin>>a;

if (a%2==0) cout<<"La so chan";

else cout<<"La so le";

return 0;

}

Phu LeePro
20 tháng 12 2021 lúc 19:57

- Thuật toán chương trình:

   Bước 1: Nhập một số tự nhiên n và một biến d;

   Bước 2: Gán giá d=n mod 2;

   Bước 3: Nếu d=0 thì đấy là số chẵn, ngược lại thì đấy là số lẻ;

   Bước 4. Kết thúc thuật toán;

- Chương trình Pascal:

Giải bài tập Tin học 8 | Để học tốt Tin học 8

- Kết quả:

Giải bài tập Tin học 8 | Để học tốt Tin học 8

Biibii
Xem chi tiết
Minh Hồng
18 tháng 1 2022 lúc 11:58

Tham khảo

Var s,i:integer;
begin
 S:= 0;
 For i:= 1 to 10 do s:=s+1;
 Writeln (‘tong cua 10 so tu nhien dau tien la:’,s);
 Readln
End.

Kiều Vũ Linh
19 tháng 1 2022 lúc 8:38

Var i,s:integer;

Begin

For i:=1 to 10 do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

Khoa Nguyen
Xem chi tiết
Nguyễn Huy Tú
19 tháng 12 2019 lúc 17:46

Câu 1

uses

crt;

var a : integer;

begin

clrscr;

write('nhap a ='); readln(a);

if a mod 2 = 0 then writeln('la so chan ') else

writeln('la so le ');

readln;

end.

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
19 tháng 12 2019 lúc 17:55

1:

uses crt;

var n:integer;

begin

clrscr;

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

if n>=0 then begin

if n mod 2=0 then writeln(n,' la so chan')

else writeln(n,' la so le');

end

else writeln('vui long nhap so tu nhien');

readln;

end.

2:

uses crt;

var d,r,cv,dt:integer;

begin

clrscr;

write('nhap chieu dai:'); readln(d);

write('nhap chieu rong:'); readln(r);

if (d>0) and (r>0) and (d>=r) then

begin

cv:=(d+r)*2;

dt:=d*r;

writeln('chu vi la: ',cv);

writeln('dien tich la: ',dt);

end

else writeln('vui long nhap lai');

readln;

end.

Khách vãng lai đã xóa