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.
b)
uses crt;
var i,y:integer;
begin
clrscr;
y:=0;
for i:=1 to 100 do
y:=y+i;
writeln('y=',y);
readln;
end.
c)
uses crt;
var y,i:integer;
begin
clrscr;
y:=0;
i:=1;
while y<=3200 do
begin
y:=y+i;
inc(i);
end;
writeln('y=',y);
readln;
end.
program TinhDienTichHinhTron;
var
fIn, fOut: Text;
r: Integer;
dien_tich: Real;
begin
Assign(fIn, 'dt_ht.inp');
Reset(fIn);
Readln(fIn, r);
Close(fIn);
Assign(fOut, 'dt_ht.out');
Rewrite(fOut);
dien_tich := Pi * r * r;
Writeln(fOut, FormatFloat('0.00', dien_tich));
Close(fOut);
end.
Tk:
Code c:
#include <stdio.h>
#include <conio.h>
#include <math.h>
#define PI 3.14159
int main() {
int r;
float chuvi, dientich;
printf("Nhap ban kinh r:");
scanf("%d", &r);
chuvi = 2*PI*r;
dientich = PI*r*r;
printf("Chu vi hinh tron la: %f\n", chuvi);
printf("Dien tich hinh tron la: %f", dientich);
getch();
}
