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.

30 tháng 10 2021

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.

30 tháng 10 2021

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.

29 tháng 10 2021

ai giúp với

29 tháng 10 2021

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;

}

7 tháng 2 2023

 

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 st:string;

d,i,n:integer;

begin

clrscr;

readln(n);

str(n,st);

d:=length(st);

for i:=d downto 1 do

write(st[i]);

readln;

end.

12 tháng 4 2023

program doc_so;
var
  so, chuc, donvi: integer;
begin
  write('Nhap vao mot so nguyen duong co 2 chu so: ');
  readln(so);
  if (so < 10) or (so > 99) then
    writeln('So khong hop le')
  else
    begin
      chuc := so div 10;
      donvi := so mod 10;
      case chuc of
        1: 
          case donvi of
            0: writeln('Muoi');
            1: writeln('Muoi mot');
            2: writeln('Muoi hai');
            3: writeln('Muoi ba');
            4: writeln('Muoi bon');
            5: writeln('Muoi lam');
            6: writeln('Muoi sau');
            7: writeln('Muoi bay');
            8: writeln('Muoi tam');
            9: writeln('Muoi chin');
          end;
        2: write('Hai muoi');
        3: write('Ba muoi');
        4: write('Bon muoi');
        5: write('Nam muoi');
        6: write('Sau muoi');
        7: write('Bay muoi');
        8: write('Tam muoi');
        9: write('Chin muoi');
      end;
      if (chuc <> 1) and (donvi > 0) then 
        begin
          write(' ');
          case donvi of
            1: writeln('mot');
            2: writeln('hai');
            3: writeln('ba');
            4: writeln('bon');
            5: writeln('nam');
            6: writeln('sau');
            7: writeln('bay');
            8: writeln('tam');
            9: writeln('chin');
          end;
        end;
    end;
  readln;
end.

12 tháng 4 2023

program Doc_so;

var

     n: integer;

begin

     write('Nhap mot so nguyen duong to da 2 chu so: ');

     readln(n);

     if n < 10 then

          writeln('So ', n, ' doc la: muoi ', n)

     else if (n >= 10) and (n < 20) then

          writeln('So ', n, ' doc la: muoi ', n mod 10)

     else if (n >= 20) and (n < 100) then

          begin

               case n div 10 of

                    2: write('Hai');

                    3: write('Ba');

                    4: write('Bon');

                    5: write('Nam');

                    6: write('Sau');

                    7: write('Bay');

                    8: write('Tam');

                    9: write('Chin');

               end;

               write(' muoi ');

               case n mod 10 of

                    1: writeln('mot');

                    2: writeln('hai');

                    3: writeln('ba');

                    4: writeln('bon');

                    5: writeln('lam');

                    6: writeln('sau');

                    7: writeln('bay');

                    8: writeln('tam');

                    9: writeln('chin');

               end;

          end

     else

          writeln('Khong nhap dung gia tri so nguyen duong to da 2 chu so.');

end.

29 tháng 12 2020

uses crt;

var i,n,s: integer;

a:array[1..100] of integer;

begin

writeln('Nhap n: '); read(n);

for i:=1 to n do 

begin

write('a[',i,'] = '); readln(a[i]);

end;

writeln('Cac so le: ')

s:=0;

for i:=1 to n do

if a[i] mod 2 <> 0 then 

begin

s:=s+a[i];

write(a[i],' ');

end;

writeln('- Tong so le: ',s);

for i:=1 to trunc(sqrt(s)) do if s mod i = 0 then d:=d+1;

if d > 1 then writeln('Tong do khong la so nguyen to') else writeln('Tong do la so nguyen to');

readln

end.

12 tháng 12 2020

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.