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âu lệnh khai báo các biến sử dụng :
var C: longint;
a,b: integer;
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.
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.
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.
Câu hỏi của Ngân Nguyễn - Tin học lớp 8 | Học trực tuyến
nhớ khai báo thêm biến S nhé
là sao ạ?
mình ko hiểu
?