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.
ko bt lm
Bài 1:
#include <bits/stdc++.h>
using namespace std;
int a,dv,ch;
int main()
{
cin>>a;
dv=a%10;
ch=a/10;
cout<<dv+ch;
return 0;
}
uses crt;
var i,n,m,j,kt:integer;
begin
clrscr;
readln(n,m);
for i:=n to m do
begin
kt:=0;
if (i>2) then begin
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.
uses crt;
var n,dv,ch:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (10<=n) and (n<=99);
dv:=n mod 10;
ch:=n div 10;
writeln('Tong cac chu so la: ',dv+ch);
readln;
end.
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writeln(a+b:4:1);
readln;
end.
program b1;
uses crt;
var a,b,s:real;
begin
clrscr;
writeln('Nhap hai so a va b: ');
readln(a,b);
s:=a+b;
write('Tong cua hai so a va b la: ',s:1:1);
readln;
end.
P/S: phần lưu lẫn đặt tên người dùng nào cũng đều làm được.
+ Chọn Save as ở phần File phía góc trái trên cùng rồi đặt tên.
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if (10<a[i]) and (a[i]<20) then inc(dem);
writeln(dem);
readln;
end.
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
Bài 1:
Program HOC24;
var x,t: byte;
begin
write('Nhap so co 2 chu so: '); readln(x);
t:=(x mod 10)+(x div 10);
write('Tong 2 chu so cua so do la: ',t);
readln
end.
Bài 2:
Program HOC24;
var ho_ten,gioi_tinh: string;
nam_sinh: integer;
begin
write('Ho va ten: '); readln(ho_ten);
write('Nam sinh: '); readln(nam_sinh);
write('Gioi_tinh: '); readln(gioi_tinh);
write('Nguoi do nam nay ',2021-nam_sinh,' tuoi');
readln
end.