H
1
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
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
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;
}
ML
13 tháng 3 2019
Lời giải :
program hotrotinhoc ;
var i,n : integer ;
A: real ;
begin
write('nhap gia tri n='); readln(n);
A:=1;
for i:=1 to n do
A:=A*(1+1/(i*i));
write('Ket qua la',A);
Readln
end.
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.
8 tháng 12 2017
tất cả các câu đều là s:=s+i hay s:=s+1/sqr(i)..vân vân bạn ạ
17 tháng 10 2020
a) sqr(sqr(sqr(x))+3)-2/(sqr(x)*x)+sqr(2x+1)
b) a*x*x*x+3*sqr(a)*x+3*a*sqr(x)+a*x+c
TT
2
30 tháng 1 2018
program tinh_tong;
uses crt;
var a,i,n:integer;
s:real;
begin
clrscr
writeln ('Nhap a va n lan luot =');
readln(a,n);
s:=1;
for i:=1 to n do s:=a*n^n;
writeln ('Tong s =',s);
readln
end.
CD
1
11 tháng 1 2019
program bai1;
var i,n,s,t:longint;
function tt(a:longint):longint;
var i,s:longint;
begin
s:=1;
for i:=1 to a do
s:=s*a;
tt:=s;
end;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do
begin
t:=tt(i);
s:=s+t;
end;
write('Tong la: ',t);
readln
end.
uses crt;
var i,n,s:longint;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr((2*i-1));
writeln(s);
readln;
end.