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.
Tham khảo
Đầu tiên chúng ta cần khai báo biến n kiểu int, sau đó yêu cầu người dùng nhập giá trị cho n.
Tiếp đến là ta chia lấy dư n cho 10 để lấy hàng đơn vị. Để lấy được hàng chục ta chia lấy nguyên cho 10 rồi sau đó chia lấy dư cho 10 (b = (n / 10) % 10).
Hàng trăm sẽ bằng n chia lấy nguyên cho 100.
Sau khi đã có được hàng trăm, hàng chục và hàng đơn vị, ta sử dụng switch..case để đọc theo hàng trăm, hàng chục và hàng đơn vị.
Tham khảo
Đầu tiên chúng ta cần khai báo biến n kiểu int, sau đó yêu cầu người dùng nhập giá trị cho n.
Tiếp đến là ta chia lấy dư n cho 10 để lấy hàng đơn vị. Để lấy được hàng chục ta chia lấy nguyên cho 10 rồi sau đó chia lấy dư cho 10 (b = (n / 10) % 10).
Hàng trăm sẽ bằng n chia lấy nguyên cho 100.
Sau khi đã có được hàng trăm, hàng chục và hàng đơn vị, ta sử dụng switch..case để đọc theo hàng trăm, hàng chục và hàng đơn vị nha
CÂU 1:
program hinhchunhat;
var a,b,S,C: real;
begin
Write('Nhapdodaicanhthuchata=');readln(a);
Write('Nhapdodaicanhthuhaib=');readln(b);
S:= a*b;
C:=(a+b)*2;
Writeln('Dientichhinhchunhatla:',S);
Writeln('Chuvihinhchunhatla:',C);
readln
end.
CHÚC BẠN HỌC TỐT!
CÂU 2:(lưu ý: câu này thì mik viết chương trình với bán kính hình tròn là sớ thực được nhập từ bàn phím còn số dương thì bn tự tìm hiểu nhe. nếu tìm hiểu đc thì bn chỉ cần thay phần khai báo var thôi nhe.)
program hinhtron;
var r:real;
const pi=3.14;
begin
clrscr;
Write('Nhapbankinh:');readln(r);
Writeln('Chuvihinhtronla:',2*pi*r);
Writeln('Dientichhinhtronla:',pi*r*r);
readln
end.
CHÚC BẠN HỌC TỐT (x2)
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
if (b==0) cout<<"Ko tinh duoc";
else
{
cout<<a+b<<endl;
cout<<a-b<<endl;
cout<<a*b<<endl;
cout<<a/b;
}
return 0;
}
uses crt;
var n,d,dem,i,x,y,t:integer;
st:string;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1000<=n) and (n<=9999);
if n mod 2=0 then
begin
str(n,st);
d:=length(st);
dem:=0;
for i:=1 to d do
begin
val(st[i],x,y);
if x=0 then inc(em);
end;
writeln('So chu so 0 co trong so ',n,' la: ',dem);
end
else begin
str(n,st);
t:=0;
d:=length(st);
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+sqr(x);
end;
writeln('Tong binh phuong cac chu so trong so ',n,' la: ',t);
end;
readln;
end.
uses crt;
var n,d,dem,i,x,y,t:integer;
st:string;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1000<=n) and (n<=9999);
if n mod 2=0 then
begin
str(n,st);
d:=length(st);
dem:=0;
for i:=1 to d do
begin
val(st[i],x,y);
if x=0 then inc(em);
end;
writeln('So chu so 0 co trong so ',n,' la: ',dem);
end
else begin
str(n,st);
t:=0;
d:=length(st);
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+sqr(x);
end;
writeln('Tong binh phuong cac chu so trong so ',n,' la: ',t);
end;
readln;
end.
uses crt;
var n,i:integer;
st:string;
begin
clrscr;
readln(n);
if n mod 4=0 then writeln('n chia het cho 4')
else writeln('n khong chia het cho 4');
str(n,st);
writeln(length(st));
for i:=length(st) downto 1 do write(st[i]);
readln;
end.