viết chương trình pascal cho bài toán sau :
nếu a chia hết cho 2 thì in ra màn hình ' a là số chẵn ' và ngược lại ' a là số lẻ '
help!!mai KT rùi !
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.
Những câu hỏi liên quan
4 tháng 1 2023
Bài 1:
Input: Số n
Output: Kiểm tra xem n có chia hết cho 5 ko
Mô tả thuật toán:
Bước 1: Nhập n
Bước 2: Nếu n chia hết cho 5 thì xuất ra có
không thì không
Bước 3: Kết thúc
Viết ct:
uses crt;
var n:integer;
begin
clrscr;
readln(n);
if n mod 5=0 then write('yes')
else write('no');
readln;
end.
30 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
double tb=(a+b)/2;
if (tb>=5) cout<<"ket qua dat";
else cout<<"ket qua khong dat";
return 0;
}
30 tháng 12 2021
sao ko giống gì mình học vậy:) mình nhwos sương sương là program rồi đến uses crt j mà ta
26 tháng 3 2021
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
26 tháng 3 2021
Bài 2:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
DQ
4 tháng 12 2016
program CT_dautien;
uses crt;
var a:integer;
begin
clrscr;
writeln('moi nhap so a');readln(a);
if a mod 2 = 0 then write(a, 'la so chan') else write(a, 'la so le');
readln
end.
5 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
if (a<b) cout<<a;
return 0;
}
5 tháng 12 2021
chương trình có chạy được không vậy bạn, mình thấy một đống lỗi rồi đấy
var a:byte;
begin
write('a=');readln(a);
if a mod 2=0 then write('a la chan') else write('a la le');
readln;
end.