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.

16 tháng 12 2021

program Chieu_cao;

uses crt;

var Long, Trang : integer;

begin

writeln('Nhap chieu cao cua Long (Duoi dang cm)');

readln(Long);

writeln('Nhap chieu cao cua Trang (Duoi dang cm)');

readln(Trang);

if Long > Trang then writeln('Long cao hon Trang')

else writeln('Trang cao hon Long);

end.

#AeMZn

 

16 tháng 12 2021

program Chieu_cao;

uses crt;

var Long, Trang : integer;

begin

writeln('Nhap chieu cao cua Long (Duoi dang cm)');

readln(Long);

writeln('Nhap chieu cao cua Trang (Duoi dang cm)');

readln(Trang);

14 tháng 2 2022

Câu 1: 

program chieu_cao;

uses crt;

var Nam, Linh: real;

begin

clrscr;

write ('Nhap chieu cao cua Nam:'); readln (Nam);

write ('Nhap chieu cao cua Linh:'); readln (Trang);

if Nam > Linh then writeln ('Ban Nam cao hon');

if Nam < Linh then writeln ('Ban Linh cao hon') else writeln ('Hai ban cao bang nhau');

readln

end.

14 tháng 2 2022

Câu 2: 

program Tich;

var N,i: interger;

      P: longint;

begin

write ('N='); readln (N);

P:=1;

for i:=1 to N do P:=P*i;

writeln (N,' ! = ',P);

readln

end.

10 tháng 5 2023

program SoSanhDiem;

var

      DiemManh, DiemThanh: real;

begin

      write('Nhap diem cua ban Manh: ');

      readln(DiemManh);

      write('Nhap diem cua ban Thanh: ');

      readln(DiemThanh);

      if DiemManh > DiemThanh then

            writeln('Ban Manh dat diem cao hon ban Thanh.')

      else if DiemManh < DiemThanh then

            writeln('Ban Thanh dat diem cao hon ban Manh.')

      else

            writeln('Hai ban dat diem bang nhau.');

      readln;

end.

31 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

int a;

int main()

{

cin>>a;

if (a>10) cout<<"ban nhap so lon hon 10";

else cout<<"ban nhap so nho hon 10";

return 0;

}

11 tháng 12 2018

var a,b,C : integer ;

begin

wirte('nhap so hoc sinh nam'); readln(a);

wirte('nhap so hoc sinh nu'); readln(b);

If a>b then writeln('nam nhieu hon nu') else writeln('nu nhieu hon nam');

begin

C:=a-b;

C:=b-a

end;

write('hon nhau so ban la',C);

readln

end.

10 tháng 1 2019

program bai1;

var x,y:longint;

begin

write('So hs nam: ');readln(x);

write('So hs nu: ');realn(y);

if x<y then write('Nam it hon nu (it hon ',y-x,' hs')

else if x>y then write('Nam nhieu hon nu (nhieu hon ',x-y,' hs')

else if x=y then write('Nam=nu ');

readln

end.

2 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

int n,k,a,b;

int main()

{

cin>>n>>k;

a=(n+k)/2;

b=(n-k)/2;

cout<<"So hoc sinh nam la: "<<a;

cout<<"\nSo hoc sinh nu la: "<<b;

Return 0;

}

10 tháng 5 2023

Program HOC24;

var a,b: real;

begin

write('Nhap diem cua Manh: '); readln(a);

write('Nhap diem cua Thanh: '); readln(b);

if a>b then write('Diem cua ban Manh cao hon ban Thanh');

if a<b then write('Diem cua ban Thanh cao hon ban Manh');

if a=b then write('Diem cua ban Manh bang ban Thanh');

readln

end.