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.
program bai1;
var i,n,s:longint;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('Tong la ',s);
readl
end.
Chưa chắc giống nhau nhưng tham khảo :
Câu 1 : Viết các phép tính sau trong pascal :
a) \(\frac{\sqrt{p\left(p-a\right)\left(p-b\right)^2}}{p-c}\)
b) \(a^2+b^2-5ab-\frac{43}{3}\)
c) \(\sqrt{2}+\frac{\sqrt{s+p+c}}{\sqrt{2}}\)
Câu 2 :
Viết chương trình tính diện tích và chu vi hình chữ nhật biết chiều dài và chiều rộng nhập từ bàn phím.
Câu 3 :
Viết chương trình tính diện tích hình tròn biết bán kính được nhập từ bàn phím.
cú pháp: if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
cách thực hiện:
Dạng đủ: Chương trình sẽ kiểm tra điều kiện nếu điều kiện đúng thì làm câu lệnh 1 sau đó làm câu lệnh tiếp theo, nếu điều kiện sai thì chương trình sẽ bỏ qua câu lệnh 1 và làm câu lệnh 2 sau đó làm câu lệnh tiếp theo.
Vd: Câu lệnh sau:uses crt;
var i,n: integer;
begin
clrscr;
writeln('nhap i: '); readln(i);
writeln(nhap n: '); readln(n);
if i>5 then writeln(i) else writeln(n);
{trong trường hợp này nếu nhập i lớn hơn 5 thì sẽ xuất i ra màn hình nếu không thì xuất n ra màn hình.}
Cú pháp: if <điều kiện> then <câu lệnh 1>
else <câu lệnh 2>;
Vd: If a[i] mod 2=0 then inc(dem)
else inc(dem1);
Dòng 3: Sai -> Sửa: var Y: longint; (cái này nếu sửa đúng là var Y: integer; nhưng nếu dùng như vậy biến Y sẽ bị tràn sẽ lớn hơn giá trị tối đa của integer gây ra lỗi cho chương trình khi chạy)
Dòng 4: Sai -> sửa: x: integer;
Dòng 6: Đúng -> Bổ sung: x:=100; (theo mình quan sát được nó nằm ở phần khai báo)
Dòng 10: Đúng -> Sửa: x:=x+10; (cái này có thể sửa hoặc không vì như thế nó cũng không sai)
Dòng 11: Sai -> Sửa: end;
Các dòng còn lại đều đúng và không có vấn đề để sửa.
Bài chính xác như vầy, em tự sửa lại trên giấy nhé!
Program baiso2;
Uses crt;
Var x,y:integer;
Begin
x:=100;
y:=0;
While x<1000 do
Begin
y:=y+x;
x:=x+10;
End;
Readln;
End.
uses crt;
var a:array[1..1000]of integer;
n,i,k,min,vt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n=0 then writeln('Moi ban nhap lai')
else begin
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
writeln;
min:=a[1];
vt:=1;
for i:=1 to n do
if min>a[i] then
begin
min:=a[i];
vt:=i;
end;
writeln('So nho nhat la: ',min,' tai vi tri: ',vt);
write('Nhap k='); readln(k);
for i:=1 to n do
if i<>k then write(a[i]:4);
end;
readln;
end.
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n>0 && n%5==0) cout<<"Phai";
else cout<<"Khong phai";
}
uses crt;
var st:array[1..100]of string;
a,b,c:array[1..100]of real;
i,n:integer;
max:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(st[i],a[i],b[i],c[i]);
max=(a[1]+b[1]+c[1])/3;
for i:=1 to n do
if (max<(a[i]+b[i]+c[i])/3) then max:=(a[i]+b[i]+c[i])/3;
writeln(max:4:2);
readln;
end.