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.

co 4 loi sai

if a mod 2:=0 là sai ở chỗ :

writeln(a,'la so chan); là sai ở chỗ sau chữ n thiếu dấu '

writln sai ở chỗ thiếu chữ e

(a,'la so le') sai ở chỗ thiếu chấm phẩy sau cùng

5 tháng 1 2022

cảm ơn mn nhiều

uses crt;

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

i,n,dem,kt,j:integer;

begin

clrscr;

readln(n);

for i:=1 to n do write(i:4);

writeln;

for i:=2 to n do

begin

kt:=0;

for j:=2 to i-1 do 

if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

readln;

end.

20 tháng 8 2017

uses crt;

var a,b:longint;

begin

clrscr;

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

write('nhap so thu hai:');readln(b);

if (a mod 2=0) and (b mod 2=0) then

write('ca hai so deu chan')

else if (a mod 2<>0) and (b mod 2<>0) then

write('ca hai so deu le')

else write('ban vua nhap mot so chan va mot so le');

readln;

end.

banh

chúc bạn học tốtok

19 tháng 1 2022

Var s,n,i,so:integer;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i)readln(so);

If so mod 2 = 0 then s:=s+so;

End;

Write('Tong cac so chan la ',s);

Readln;

End.

20 tháng 1 2022

Program HOC24;

var i,n,t: integer;

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

begin

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

for i:=1 to n do if i=n then readln(a[i]) else read(a[i]);

t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

write('Tong cac so chia het cho 2 la: ',t);

readln

end.

30 tháng 3 2020

A) Sai vì dư dấu " ; " trước chữ " then "

B) Sai vì thiếu chữ " write( " sau chữ " then "

C) Sai vì thiếu dấu " = " ở lệnh gán giá trị

D) Sai vì thiếu dấu " : " trước dấu " = " ở lệnh gán giá trị

A: Sai vì dư dấu ;

B: Sai vì thiếu dấu (

C: Sai vì thiếu điều kiện và thiếu dấu = ở phép gán

D: Đúng

13 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b;

t=a+b;

cout<<"Tong la:"<<t<<endl;

if (t%2==0) cout<<"Tong la so chan";

else cout<<"Tong la so le";

return 0;

}