Ai giúp mk giải bài nay được không
Đề: Tính tổng 5 số tự nhiên a,b,c,d,e với ạ,b,c,d,e đc nhập từ bàng phím
Phần mềm Free pascal
Program :Bt1
Var
Begin
Writeln(); readln ();
S:=a+b+c+d+e
Writeln;
End.
Ai làm giúp mk, mk cảm ơn
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
SN
3 tháng 10 2018
Bài 1 :
- Giống nhau:
+Biến và hằng điều là đại lượng lưu trữ dữ liệu.
+Hai đại lượng này phải khai báo mới sử dụng được.
Khác nhau:
- Hằng: Giá trị của hằng không thể thay đổi trong quá trình thực hiện chương trình.
- Cách khai báo biến:
Var<tên biến>:<kiểu dữ liệu>;
VD: Var a,b:integer;
C:string;
-Biến: giá trị của biến có thể thay đổi trong quá trình thực hiện chương trình.
_ Cách khai báo hằng:
const <tên hằng>=<giá trị của hằng>;
VD: Const pi=3.14;
SN
3 tháng 10 2018
Bài2. Giả sử ta đã khai báo một hằng Pi với giá trị 3.14. Có thể gán lại giá trị 3.1416 cho Pi trong phần thân chương trình được không, tại sao?
Trả lời
Không thể gán được, vì một tên hằng không thể nhận một lúc hai giá trị.
11 tháng 11 2016
1.
program tinhtong;
uses crt;
var s,i,n:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+1;
writeln ('tong cua s=',s);
readln
end.
2.
program tinhtong;
uses crt;
var i,L,s:integer;
begin
write('nhap gia tri L='); readln(L);
s:=0;
for i:=1 to L do s:=s+1;
writeln('tong cua s=',s);
readln
end.
26 tháng 10 2021
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(1/sqr(a)+1/sqr(b):4:2);
readln;
end.
17 tháng 2 2021
Bài 1:
function canbac2(x:longint):real;
begin
canbac2:=sqrt(x);
end;
Bài 2:
function tong(n:longint):longint;
var s,i:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i;
tong:=s;
end;
12 tháng 1 2022
uses crt;
var a,b,x,t,i:integer;
begin
clrscr;
readln(a,b,x);
t:=0;
for i:=a to b do
if i mod x=0 then t:=t+i;
writeln(t);
readln;
end.
Program Bt1;
Var a, b, c, d: Byte;
Begin
Clrscr;
Write('Nhap so a='); readln(a);
Write('Nhap so b='); readln(b);
Write('Nhap so c='); readln(c);
Write('Nhap so d='); readln(d);
S:=a+b+c+d+e;
Writeln(Tong 5 so tu nhien tren la:'); readln(S)
End.
Program không có dấu : đâu nhé
ấy Iori Yagami, mình thiếu số e bạn biết ghi không hay để mình chỉ?