Những câu hỏi liên quan
Vỹ Thiên
Xem chi tiết
Lovers
8 tháng 11 2016 lúc 20:54

Bài 1 :

Uses crt;

Var x,y:integer;

Begin

clrscr;

Readln(x,y);

Write('Tong cua x,y la ',x+y);

Readln

End.

Bài 2 :

Uses CRT;

var x,y,z:integer; tbc:real;

begin

clrscr;

readln(x,y,z);

tbc:=(a+b+c)/3;

Write('Trung binh cong x,y,z la ',tbc:4:2);

Readln

End.

 

Bình luận (2)
Ngân
Xem chi tiết
Ngọc Phi 7D5
Xem chi tiết
Hồ Thị Linh Chi
Xem chi tiết
Trương Thị Hà Vy
16 tháng 12 2018 lúc 20:10

uses crt;

var

a,b: integer;

begin

clrscr;

write('Nhap so thu nhat: ');readln(a);

write('Nhap so thu hai: ');readln(b);

writeln('Tong ',a,' va ',b,' la: ',a+b);

readln

end.

Bình luận (0)
Trâm Nguyễn Thị Ngọc
21 tháng 12 2018 lúc 18:28

Câu 1:

Var

cv,s,a:integer;

begin

write('nhap vao canh hinh vuong:');readln(a);

s:=a*a;

cv:=a*4;

Writeln('chu vi hinh vuong la:',cv);

WRiteln('dien tich hinh vuong la:',s);

readln

end.

Bình luận (0)
Trâm Nguyễn Thị Ngọc
21 tháng 12 2018 lúc 18:29

câu 3:

Var

s,h,a:integer;

begin

write('nhap vao canh hinh vuong:');readln(a);

write('nhap vao chieu cao tuong ung:');readln(h);

s:=(a*h) mod 2;

WRiteln('dien tich hinh vuong la:',s);

readln

end.

Bình luận (0)
fqfqfqfqfq
Xem chi tiết
Nguyễn Quốc Đạt
7 tháng 12 2023 lúc 20:39

Bạn kiểm tra lại đề nha; M, N có liên quan gì đến tổng S bạn nhỉ?

Bình luận (0)
thanh thuý
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 19:56

Câu 1:

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n<2 then writeln(n,' khong la so nguyen to')

else begin

kt:=0;

for i:=2 to n-1 do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

end;

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 19:57

Câu 2: 

uses crt;

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

i,n,max,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.

Bình luận (0)
Ne Su
Xem chi tiết
An Phú 8C Lưu
28 tháng 11 2021 lúc 9:29

THAM KHẢO:

uses crt;

var a,cv,dt:integer;

begin

clrscr;

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

cv:=a*4;

dt:=sqr(a);

if a>0 then

begin

writeln('chu vi hinh vuong la: ',cv);

writeln('dien tich hinh vuong la: ',dt);

end

else writeln('vui long nhap so a lon hon 0');

readln;

end.

Bình luận (0)
Hehe
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 1 2022 lúc 20:42

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a-b;

return 0;

}

Bình luận (0)
Đinh Trần Thiên Phú 8A2
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 11 2021 lúc 23:47

#include <bits/stdc++.h>

using namespace std;

long long x,y,z;

int main()

{

cin>>x>>y>>z;

cout<<x+y+z<<endl;

cout<<x*y*z;

return 0;

}

Bình luận (0)