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.

7 tháng 3 2023

for i:=1 to 100 do s:=s+i;

7 tháng 5 2020

tính số vòng lặp i . còn tổng s không qá 100

\n
8 tháng 5 2020

tổng s được tính như thế nào ?

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;

23 tháng 10 2019

Câu lệnh khai báo:

Var c,a,b:real;

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.

6 tháng 8 2023

Tham khảo:

loading...

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.

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.

1 tháng 5 2018

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é

2 tháng 5 2018

cảm ơn bn ạ