Viết chương trình Python bài 4 SGK trang 51 (không phải chương trình Pascal.)
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
TN
18 tháng 1 2022
C1: Một chương trình Pascal gồm 2 phần: phần khai báo và phần thân chương trinh
C2: Từ khóa trong Pascal: program, input, output, var, real, begin, readline, writeline và end
C3: -Tên không bắt đầu bằng chữ số
- Tên không có khoảng cách
- Tên không được trùng với từ khóa
C4: ví dụ tính diện tích hình vuông:
Program HINH_VUONG;
uses crt;
Var canh: real;
Begin
clrscr;
Write('Nhap do dai canh:');readln(canh);
Writeln('Chu vi hinh vuong la:',4*canh:10:2);
Writeln('Dien tich hinh vuong la:',canh*canh:10:2);
readln
end.
C5:
B1: Tải Pascal trên 1 link nhất định
B2: Mở thư mục chưa file tải về click đúp (hoặc click phải chuột chọn Install) để tiến hành cài đặt
B3: Chọn Next để sang bước kế tiếp:
B4: Click vào Browse để lựa chọn ổ đĩa cài đặt. Hoặc không bạn có thể để mặc định và tiếp tục chọn Next.
B5: Click vào Install để bắt đầu cài đặt.
B6: Chờ đợi quá trình cài đặt diễn ra trong một vài phút.
B7: Click vào Finish để hoàn tất quá trình cài đặt.
KV
10 tháng 5 2023
Câu 58:
Var n:integer;
Begin
Write('n = ');readln(n);
If n mod 2 <> 0 then write(n,' la so le')
Else write(n,' khong la so le');
Readln
End.
KV
10 tháng 5 2023
Câu 61:
Var n:integer;
Begin
Write('n = ');readln(n);
If n mod 2 = 0 then write(n,' la so chan')
Else write(n,' khong la so chan');
Readln
End.
KV
10 tháng 5 2023
Bài 1
Var a:array:[1..99] of integer;
i,n:integer;
s:longint;
Begin
Repeat
Write('n = ');readln(n);
Until (n > 0) and (n < 100);
For i:=1 to n do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
if a[i] mod 2 = 0 then s:=s+a[i];
End;
Write('Cac so vua nhap la: ');
For i:=1 to n do
Write(a[i]:8);
writeln;
write('Tong cac so chan la ',s);
Readln
End.
KV
10 tháng 5 2023
Bài 2
Var a:array:[1..99] of integer;
i,n:integer;
s:longint;
Begin
Repeat
Write('n = ');readln(n);
Until (n > 0) and (n < 100);
For i:=1 to n do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
if a[i] mod 2 <> 0 then s:=s+a[i];
End;
Write('Cac so vua nhap la: ');
For i:=1 to n do
Write(a[i]:8);
writeln;
write('Tong cac so le la ',s);
Readln
End.
10 tháng 5 2021
Câu 1:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<2 then writeln(n,' khong la so nguyen to')
else begin
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end;
readln;
end.
10 tháng 5 2021
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la: ',max);
writeln('So nho nhat la: ',min);
readln;
end.
8 tháng 8 2016
Bài 1: ta có 2/3 số bài là 12 bài
=> số bài cần phải ôn là \(\frac{12.3}{2}=18\)
Ạm cầm ôn 18 bài
Bài 2: gọi chiều rộng hình chữ nhật là a
=> theo đề ta có pt: 120%a-a=1,6
<=> 1,2a-a=1,6
<=> 0,2a=1,6
<=> a=8
vậy chiều rộng là 8
=> chiều dài :120%.8=9,6
=> chu vi: (9,6+8).2=35,2
diện tích : 9,6.8=76,8
27 tháng 10 2021
#inclue <bits/stdc++.h>
using namespace std;
double a;
int main()
{
cin>>a;
if (a<=0) cout<<"khong phai";
else cout<<fixed<<setprecision(2)<<a*a;
return 0;
}
5 tháng 5 2023
s = input("Nhập một xâu bất kỳ: ")
print("Các ký tự và chữ số trong xâu là:")
for char in s:
if char.isdigit() or char.isalpha():
print(char)
Bạn chụp bài ra nhé!