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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
MH
1.Viết chương trình tính: xa
2.Viết chương trình tính: S=1+2n+3n+....+nn
mong các bạn giúp đỡ.......
2
23 tháng 11 2017
Program bai1;
uses crt;
var i,x,a,kq:longint;
Begin
clrscr;
writeln('Chuong trinh tinh X^a');
write('X=');readln(x);
write('a=');readln(a);
kq:=1;
for i:=1 to a do
kq:=kq*x;
writeln(x,'^',a,'=',kq:4);
readln;
end.
23 tháng 11 2017
bài 2:
Program bai2;
uses crt;
var n,i: integer;
s: real;
begin
clrscr;
write('nhap so n ='); readln(n);
s:=0;
for i:= 1 to n do
s:=s+exp(n*ln(i));
writeln('tong =',s :4:2);
readln;
end.
ML
23 tháng 4 2019
Lời giải:
Bài 1 :
program hotrotinhoc ;
var i,x : integer ;
begin
write('x='); readln(x);
if x mod 2=0 then writeln('Day la so chan') else writeln('Day la so le');
while x<>0 do
begin
write('x='); readln(x);
if x mod 2=0 then writeln('Day la so chan') else writeln('Day la so le');
end;
readln
end.
HV
1
31 tháng 12 2016
program P;
var x, y, P: integer;
begin
writeln('nhap x va y = ');
readln(x,y);
P:=x*x+y*y+x*y;
writeln('gia tri bieu thuc = ',P);
readln
end.
Bạn thử chạy chương trình xem có được ko rồi nói lại cho mình nhé.
L
25 tháng 10 2016
Câu 1 :
a) (a+b)*(a+b)*(d+e)
b) a*x*x+b*x*x+c*x
Câu 2: Mình không hiểu đề lắm? Đặt cái gì cơ?
Câu 3:
Uses crt;
Var S,a,b:real;
Begin
clrscr;
Writeln('Nhap chieu dai a = '); Readln(a);
Writeln('Nhap chieu rong b = '); Readln(b);
S := a*b;
Write('Dien tich hinh chu nhat la ', S );
Readln;
End.
GN
25 tháng 10 2016
xin lỗi mk lộn nêu qui tắc đặt ngôn ngữ lập trình trong pascal
DC
12 tháng 10 2019
s1= n*(n+1)/2
s2= (s1)^2
S3 ( giải = 500es)
1->M
1->A
0->Y
Y+A/M->Y: A/M->A : M+1->M
Ấn n lần kết quả là Y
CD
1
8 tháng 2 2022
#include <bits/stdc++.h>
using namespace std;
long long s1,s2,s3,s4,i;
int main()
{
s1=0;
for (i=1; i<=100; i++) s1=s1+i*i;
s2=0;
for (i=1; i<=100; i++) if (i%2==1) s2+=i;
s3=0;
for (i=1; i<=100; i++)
{
if (i%2==1) s3+=i*i;
else s3-=i*i;
}
s4=0;
for (i=1; i<=100; i++)
{
if (i%2==1) s4+=i;
else s4-=i;
}
cout<<s1<<" "<<s2<<" "<<s3<<" "<<s4;
return 0;
}
Program OLM;
var x,n: integer;
kq: longint;
begin
write('Nhap x: '); readln(x);
write('Nhap n: '); readln(n);
kq:=1;
for i:=1 to n do kq:=kq*x;
write(x,'^',n,'=',kq);
readln
end.