Hãy viết các câu lệnh Pascal sau :
A) Nhập cân nặng của một bạn thông qua biến cannang
B) Xuất (in) ra màn hình phép tính tổng ba số x,y,z
C) xuất (in) rq màn hình dòng thông báo : chuc cac ban thi tot
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.
Những câu hỏi liên quan
CX
11 tháng 12 2021
Tk
Program Can_nang;
Uses Crt;
Var W,h,BMI: Real;
Begin
Clrscr;
Writeln('Nhap can nang');Readln(W);
Writeln('Nhap chieu cao');Readln(h);
BMI:= W/h*h ;
Writeln(' Chi so khoi cua co the la', BMI:0:1);
If (BMI >=25) then Write(' Ban map roi do nhe');
If (18.5<=BMI) and (BMI<25) then Write(' Ban phat trien binh thuong') ;
If (BMI< 25) then Write(' Ban phat trien cham roi') ;
Readln;
end.
15 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t,dem;
int main()
{
cin>>n;
dem=0;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0 && x>10) t+=x;
if (x%2!=0 || x<100) dem++;
}
cout<<t<<" "<<dem;
return 0;
}
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;
}
MA
27 tháng 3 2021
program tinhtong;
uses crt;
var i, n, s: integer;
begin clrscr;
Write('N so tu nhien dau tien la: ');
readln(n);
s:=0;
i:=1;
while i<=n do begin
s:=s+i;
i:=i+1;
end;
writeln('Tong cac so la: ',s);
readln
end.
27 tháng 3 2021
giúp mình câu này luôn nhé
In ra màn hình trung bình của cấc số đã cho ở trên.
liên quan bài trên
4 tháng 5 2021
uses crt;
var n,x:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('n=',n);
x:=n;
if x mod 2=0 then writeln(x,' la so chan')
else writeln(x,' la so le');
readln;
end.
A) read(cannang);
B) write(x+y+z);
C) write('chu ban thi tot');
a) read(canang)
b) write(x + y + z)
c) write("chuc cac ban thi tot")