NN
5
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
6 tháng 4 2021
program day_du_cau_lenh;
uses crt;
var i,n:integer;
a:array[1..100]of intrger;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;
while i<=n do
begin
write('nhap a[',i,']:');readln(a[i]);
i:=i+1;
end;
for i:=1 to n do
if a[i]>=0 then write(a[i]) else write('');
readln;
end.
H9
HT.Phong (9A5)
CTVHS
28 tháng 4 2023
Uses crt;
var i,t: integer;
begin clrscr;
i:=0;
while(i<=120) do begin
i:=i+1;
t:=t+i;
end;
write(t);
readln;
end.
LB
1 tháng 1
- Trên dải lệnh ngữ cảnh Shape Format,trong nhóm lệnh Shape Styles ta chọn nút lệnh Shape Fill, sau đó nháy chuột để thay đổi nền của một hình vẽ đã chọn.
ML
23 tháng 10 2019
*Câu lệnh khai báo các biến sử dụng :
var C: longint;
a,b: integer;
25 tháng 10 2018
INPUT: cạnh a, chiều cao tương ứng h
OUTPUT: diện tích tam giác S
code:
uses crt;
var a,b,s:real;
begin clrscr;
write('nhap canh:');readln(a);
<thực hiện nhập cạnh>
write('nhap chieu cao:');readln(h);
<thực hiện nhập chiều cao>
s:=a*h/2;
<tính diện tích>
write('dien tich la:',s:8:2);
<in ra diện tích>
readln;
end.
là sao ạ?
mình ko hiểu
?