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
An Đỗ
Xem chi tiết
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

Đỗ thuỳ an
Xem chi tiết
Thiện
Xem chi tiết
Nguyễn Thế huy
Xem chi tiết
Phía sau một cô gái
16 tháng 3 2023 lúc 8:41

program TinhTong;

var

     i, S: integer;

begin

     S := 0;

     for i := 1 to 10 do

          S := S + i;

     writeln('Tong cac so tu 1 den 10 la: ', S);

     readln;

end.

bí mật
Xem chi tiết
minh đạt
Xem chi tiết
The Chu Cong
Xem chi tiết
nguyễn thị mai hương
Xem chi tiết
Thiện
25 tháng 11 2018 lúc 21:27

program chanle;

uses crt;

var a:integer;

begin

write('nhap so a: ');readln(a)

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

else writeln('a la so le');

realdn;

end.

Thiện
25 tháng 11 2018 lúc 21:27

readln(a);

ghi thiếu cái ;

:))

luuthianhhuyen
25 tháng 11 2018 lúc 21:29

progam      KT_a_khi_chiacho_2;

uses     crt;

var       a:integer;

begin

Clrscr;

writeln(' Nhap so a ');

readln(a);

Ip (a mod 2 = 0 ) then writeln (a,' Chia het cho 2');

else Ip (a mod 2 <> 0 ) then writeln (a,' ko chia het cho 2');

readln;

end.

Cái này là mk tự vt ko chép mạng nên sai thì Sorry nhang.Trên mạng cx ko có đâu

Bn nên thử ở trên CT pascal trước r ghi vào cho chắc nhé!!!