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.

Câu 1:

uses crt;
var a,b,c,d,min:longint;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
if min>d then min:=d;
writeln('so nho nhat la: ',min);
readln;
end.

Câu 2:

uses crt;
var a,b,c:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
if (a=b) and (b=c) then writeln('day la 3 canh trong mot tam giac deu')
else writeln('day khong la 3 canh trong mot tam giac deu');
end
else writeln('day khong la 3 canh trong mot tam giac');
end
else writeln('vui long nhap 3 so duong');
readln;
end.

Câu 3:

uses crt;
var a,dv,ch,tr:longint;
begin
clrscr;
write('a='); readln(a);
if (a>=100) and (a<=999) then
begin
dv:=a mod 10;
ch:=a div 10; ch:=ch mod 10;
tr:=a div 100; tr:=tr mod 10;
writeln('chu so hang tram: ',tr);
writeln('chu so hang chuc: ',ch);
writeln('chu so hang don vi: ',dv);
end
else writeln('vui long nhap so co ba chu so');
readln;
end.

Câu 4:

uses crt;
var a,s:longint;
begin
clrscr;
s:=1;
write('so thu 1:'); readln(a);
s:=s*a;
write('so thu 2:'); readln(a);
s:=s*a;
write('so thu 3:'); readln(a);
s:=s*a;
write('so thu 4:'); readln(a);
s:=s*a;
writeln('trung binh nhan cua 4 so la: ',s/4:4:2);
readln;
end.

Câu 5:

uses crt;
var a,s:longint;
begin
clrscr;
s:=0;
write('so thu 1:'); readln(a);
s:=s+a;
write('so thu 2:'); readln(a);
s:=s+a;
write('so thu 3:'); readln(a);
s:=s+a;
write('so thu 4:'); readln(a);
s:=s+a;
writeln('trung binh cong cua 4 so la: ',s/4:4:2);
readln;
end.

19 tháng 6 2023

#include<iostream>

using namespace std;

int main()    {

          int n, tram, chuc, donvi;

          cout<<"Nhap vao mot so co 3 chu so: ";

          cin>>n;

          tram = n / 100;

          chuc = (n%100) / 10;

          donvi = (n%100) % 10;

          cout<<"Chu so hang tram cua so "<<n<<" la: "<<tram<<endl;

          cout<<"Chu so hang chuc cua so "<<n<<" la: "<<chuc<<endl;

          cout<<"Chu so hang don vi cua so "<<n<<" la: "<<donvi<<endl;

          return 0;

}

13 tháng 1 2024

#include <bits/stdc++.h>
using namespace std;
#define ll long long
ll a;
int main()
{
    ios_base::sync_with_stdio(0);
    cin.tie(0);
    cout.tie(0);
    cin>>a;
    cout<<a/100<<"\n"<<(a/10)%10<<"\n"<<a%10;
}

out tu đúng

24 tháng 12 2020

Câu 1: 

uses crt;

var a,s,p:real;

begin

clrscr;

repeat

write('Nhap do dai canh hinh vuong:'); readln(a);

until a>0;

p:=4*a;

s:=sqr(a);

writeln('Chu vi hinh vuong la: ',p:4:2);

writeln('Dien tich hinh vuong la: ',s);

readln;

end.

Câu 2: 

uses crt;

var a,b,t,s,h:real;

begin

clrscr;

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

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

t:=a+b;

h:=a-b;

s:=a*b;

writeln('Tong la: ',t:4:2);

writeln('Hieu la: ',h:4:2);

writeln('Tich la: ',s:4:2);

readln;

end.

Câu 3: 

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

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

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

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

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

#include <bits/stdc++.h>

using namespace std;

int a;

int main()

{

cin>>a;

cout<<a%10<<" "<<a/10;

}

Tin học 8Câu 2: Viết chương trình tính tích 2 số nguyên được nhập từ bàn phím. Câu 3: Viết chương trình tính chu vi P, diện tích S của hình vuông, biết độ dài cạnh a = 8. In kết quả ra màn hình. Câu 4: Viết chương trình tính trung bình cộng của ba số. (Cho biết: ba số đó là a,b,c được nhập từ bàn phím). Câu 5: Viết chương trình tính tiền hóa đơn mua một món hàng, biết phí ship của hóa đơn...
Đọc tiếp

Tin học 8

Câu 2: Viết chương trình tính tích 2 số nguyên được nhập từ bàn phím. Câu 3: Viết chương trình tính chu vi P, diện tích S của hình vuông, biết độ dài cạnh a = 8. In kết quả ra màn hình. Câu 4: Viết chương trình tính trung bình cộng của ba số. (Cho biết: ba số đó là a,b,c được nhập từ bàn phím). Câu 5: Viết chương trình tính tiền hóa đơn mua một món hàng, biết phí ship của hóa đơn là 10.000đ và công thức tính tiền là: Thành tiền = đơn giá * số lượng + phí dịch vụ Câu 6: An và Bình được phân công đi mua quà cho lớp nhân dịp tết Trung thu. Hai bạn chọn mua vở với giá 5000 đồng/ quyển và bút bi với giá 3000 đồng/ cây. Em hãy viết chương trình tính số tiền 2 bạn phải trả khi mua x quyển vở và y cây bút bi.(số lượng quyển vở là x, số lượng bút bi là y được nhập từ bàn phím). Cảm ơn nhiều

2
5 tháng 11 2021

giải giúp tôi với

 

 

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a*b;

return 0;

}

17 tháng 6 2023

#include <iostream>

using namespace std;

int main()   {

      int num;

      cout << "Nhap vao mot so nguyen co 2 chu so: ";

      cin >> num;

      int hang_chuc = num / 10;

      int hang_don_vi = num % 10;

      cout << "Chu so hang chuc: " << hang_chuc << endl;

      cout << "Chu so hang don vi: " << hang_don_vi << endl;

      return 0;

}

7 tháng 12 2016

VD: 2,4,6

- số hàng trăm là 2

- số hàng chục là 4

-số hàng đơn vị là 6

- Tổng các chữ số:2+4+6=12

GIÚP MK VS MK ĐANG CẦN GẤP!!! vuivuivui

2 tháng 4 2022

tham khảo https://hayhochoi.vn/cach-tinh-theo-phuong-trinh-hoa-hoc-va-bai-tap-van-dung-hoa-8-bai-22.html 

Bài 1:

uses crt;
var a,b,c:real;
kt:boolean;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
kt:=false;
if sqr(a)=sqr(b)+sqr(c) then kt:=true;
if sqr(b)=sqr(a)+sqr(c) then kt:=true;
if sqr(c)=sqr(a)+sqr(b) then kt:=true;
if kt=false then writeln('day khong la ba canh trong mot tam giac vuong')
else writeln('day la ba canh trong mot tam giac vuong');
end
else writeln('day khong la ba canh trong mot tam giac');
end
else writeln('vui long nhap ba so duong');
readln;
end.

Bài 2:

uses crt;
var n,i:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
if (n mod i=0) and (i mod 2=0) then write(i:4);
readln;
end.

Bài 3:

uses crt;
var n,i,j:integer;
begin
clrscr;
write('n='); readln(n);
for i:=2 to n do
begin
writeln('bang cuu chuong ',i,' la: ');
for j:=1 to 10 do
write(j*i,' ');
writeln;
end;
readln;
end.

Bài 4:

uses crt;
var n,i:integer;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
for i:=0 to n do
if i mod 2=1 then write(i:4);
end
else writeln('vui long nhap n la so nguyen duong');
readln;
end.

Bài 5:

uses crt;
var a,b,c,d,max:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
writeln('so lon nhat la: ',max);
readln;
end.