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.
Bài 2:
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin >>x>>y;
cout<<x<<" "<<y;
swap(x,y);
cout<<x<<" "<<y;
return 0;
}
mình chưa hiểu rõ đề lắm nên mình sẽ làm tạm như thế này còn nếu bạn muốn kiểu khác thì cứ bình luận để mình làm lại.
câu 1 :
#include<iostream>
using namespace std;
int main() {
long long a;
cout << "giá trị của a: "; cin >> a;
if (a % 2 != 0 && a % 5 == 0) {
cout << "a là một số lẻ chia hết cho 5"
} else {
cout << "a không phải là một số lẻ chia hết cho 5";
}
return 0;
}
câu 2 :
#include<iostream>
using namespace std;
int main() {
int a;
cout << "giá trị của a là: "; cin >> a;
if (a % 2 == 0 && a % 5 == 0) {
cout << "a là một số chẵn chia hết cho 5";
} else {
cout << "a không phải là một số chẵn chia hết cho 5";
}
return 0;
}
(Mình viết ở ngôn ngữ C++)
Câu 58:
Var n:integer;
Begin
Write('n = ');readln(n);
If n mod 2 <> 0 then write(n,' la so le')
Else write(n,' khong la so le');
Readln
End.
Câu 61:
Var n:integer;
Begin
Write('n = ');readln(n);
If n mod 2 = 0 then write(n,' la so chan')
Else write(n,' khong la so chan');
Readln
End.
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
bool kt;
int main()
{
cin>>a>>b>>c;
if (a>0 && b>0 && c>0)
{
kt=false;
if (a==b && b!=c && a!=c) kt=true;
if (b==c && b!=a && c!=a) kt=true;
if (c==a && c!=b && a!=b) kt=true;
if (kt==false) cout<<"NO";
else cout<<"YES";
}
else cout<<"NO";
return 0;
}
program;
uses crt;
var a:longint;
begin
clrscr;
write('nhap a:');readln(a);
if(a>=0)and(a<=50)then write('n nam trong khoang tu 1 den 50')
else write('n khong nam trong khoang tu 1 den 50');
readln;
#include <bits/stdc++.h>
using namespace std;
int a;
int main()
{
cin>>a;
if ((a>=1) and (a<=50)) cout<<"YES";
else cout<<"NO";
return 0;
}
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
if (a mod 3=0) and (a mod 5=0) then writeln(a,' dong thoi chia het cho 3 va 5')
else writeln('Khong thoa dieu kien');
readln;
end.
câu 2
c1 :uses crt;
var a,b,c:real;
begin
clrscr;
write('Nhap 3 so duong a,b,c = ');readln(a,b,c);
if ((a+b)>c) and ((b+c) >a) and ((c+a)>b)
then writeln('3 so la 3 canh cua tam giac') else writeln('Khong la 3 canh cua tam giac');
readln
end.
var i:integer;
begin
for i:=2 to 7 do writeln('ngay thu ',i);
readln
end.
đề ko phải yêu xem có phải là cạnh của tam giác hay là ko (LY VÂN VÂN)
1)var A: array[1..100] of integer;
d,rt,i, dem: integer;
begin
writeln('Nhap mot so lon hon 0 va nho hon 100');
repeat
write ('Nhap N:');
readln(N)
if (N>=1000) or (N<=0 ) then writeln(’Moi nhap lai !');
until (N>0) and (N<1000);
writeln('Nhap cac gia tri cac so hang co tri tuyet doi khong lon hon 1000');
for i:=1 to n do repeat
write (' a [', i, '] = '); readln (a [i]) ;
if (A[i]>100) or (A[i]<-1000) then write(’Moi nhap lai ');
until (A[i]>-1000) and (A[i]<1000);
d: = A[2] - A[ 1 ] ; dem:=0;
for i:= 2 to n do if A[i] - A[i-l]od then dem:= dem + 1;
if dem >0 then writeln('A khong la cap so cong')
else writeln(’A la cap so cong');
readln,
end.
câu 1 :
program Giaitin_hoc24;
uses crt;
var a,b,c: real;
begin
clrscr;
write(' a, b, c: ');
readln(a, b, c);
if a+b=2c of a+c=2b of b+c=2a then writeln(' khong phai cap so cong. ')
else
begin
writeln(' la cap so cong. ');
end;
readln
end.
câu 3 lm tương tự nhé !
rốt cuộc bn minh có hiểu bt j về viết chương trình pascal không vậy ?không bt đúng sai vẩn tick như bình thường .
Tự nhiên thấy ăn ở khó thế nhở Nguyễn Minh Huyền
câu 1 cách dễ hiểu
var a,b,c,min,max:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
min:=a;
if b<min then min:=b;
if c<min then min:=c;
if ((max-a)=(a-min)) or ((max-b)=(b-min)) or ((max-c)=(c-min)) then writeln('la cap so cong ')
else writeln('ko');
readln;
end.
mk bị nhầm 2 lệnh rồi nhé ! bn đảo 2 lệnh lại hộ mk :(
câu 3) var a,b,c,min,max:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
min:=a;
if b<min then min:=b;
if c<min then min:=c;
if ((max=b*2) and (b=min*2)) or ((max=a*2) and (a=min*2)) or ((max=c*2) and (c=min*2)) then writeln(' la cap so nhan ')
else if ((max-a)=(a-min)) or ((max-b)=(b-min)) or ((max-c)=(c-min)) then writeln('la cap so cong ')
else writeln('ko la gi ca ');
readln;
end.
câu 2)
var i,h:integer;
begin
h:=0;
for i:=2 to 7 do begin h:=h+1; writeln(' Ngay thu ',i,' la ngay: ',h);
end;
writeln(' Ngay chu nhat la ngay :',h+1);
readln;
end.
cách cop:
Ctrl+Shift+I hoặc nhấn chuột phải vào đoạn văn bản cần cop rồi chon Kiểm tra
ở phần <p>..<p> ==$0 nhấn phải chọn Edit as HTML
rồi cop phần trong Edit ra Notepad
chỉnh sửa cho phù hợp rồi Ctrl+S nhập tên+.pas(Đuôi .pas nha)
Mở pascal ra xem kqua
Trương Quang Dũng Tú Nguyễn B (Erik) @Đoàn Gia Khánh @Mysterious Person
ko phải chỉ làm thôi, còn phải sáng tạo cách để mình copy qua pascal đc nữa đó nha =)) GP của mình dễ gì ăn được :))
Nguyễn Lê Phước Thịnh nhân tài ở đây nhiều quá, tag ko hết
hơ hơ, t ko làm, chỉ m cách copy qua pascal đc GP hông nek
Hùng Nguyễn bảo nam trần
Trần Thị Hà My nói thử nghe, hay thì tặng
Nguyễn Nhật Minh tin thì t ko giỏi lắm, do t thuờng viết ở excel nên thầy chỉ, lúc thầy xuống chỉ thấy thầy đẹp zai dữ thần luôn á......v.......v khụ khụ, lạc đề nảy h, cứ thể copy sau đó vào pascal chọn edit sau đó chọn Paste from windows là dán thôi
cái 2 nghĩa là ngày thứ 2 là ngày 1 ?
Trần Thị Hà My haha, ns như m á t đâu cần tặng GP làm j, quá đơn giản mà
B (Erik) ngày đầu tiên là ngày thứ hai, ngày số 2 là ngày thứ 3 đến cuối tuần.
Nhật Minh t biết mà, trl vui thôi
rồi, bh làm thế nào để mk kiểm tra đây??? đánh lại y nguyên cái đó vào pascal hả??? ui, mệt chết ==
Nguyễn Nhật Minh đáng đời, tại ăn ở thôi m
B (Erik) bạn làm quá đúng luôn
Trần Thị Hà My m đg ns cái j z, nãy h m ns giống như từ trên trời rơi xuống í
rồi, bây giờ mk làm sao để copy qua pascal để kiểm tra đây???
Nguyễn Nhật Minh ờ hình như t ms trên trời rơi xuống thật, ờ m cứ từ từ đánh lại cái đó vào pascal đi
bài 1 đó hả??
bây giờ mk làm sao để copy qua pas cal dẻ kiểm tra đây
cái đó bài 2 chứ