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)
fqfqfqfqfq
Xem chi tiết
datcoder
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)
Đinh Yến Phụng
Xem chi tiết
Ngân
Xem chi tiết
Đ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)
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)
30. Hoàng Nhơn
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 12 2021 lúc 14:33

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[10000];

int main()

{

cin>>n;

for (i=1; i<=n; i++)

cin>>a[i];

for (i=1; i<=n; i++)

cout<<a[i]<<" ";

}

Bình luận (1)
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)
Ngọc Phi 7D5
Xem chi tiết