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.
const
nhap='thoigian.inp';
xuat='thoigian.out';
var a,b,c,kt,i,s,m:longint;
begin
assign(input,nhap);reset(input);
assign(output,xuat);rewrite(output);
read(m); s:=0;i:=0;
while s<=m do
begin
i:=i+1;
s:=s+i*i;
end;
write(i-1);
close(input);close(output);
end.
bạn có thể viết đơn giản hơn và sử dụng lệnh (while-do) để làm ko
Lời giải:
Bài 1 :
program hotrotinhoc ;
var i,x : integer ;
begin
write('x='); readln(x);
if x mod 2=0 then writeln('Day la so chan') else writeln('Day la so le');
while x<>0 do
begin
write('x='); readln(x);
if x mod 2=0 then writeln('Day la so chan') else writeln('Day la so le');
end;
readln
end.
var n,k,s:int64;
begin
readln(n);s:=1;k:=0;
while s*3<n do
begin
s:=s*3;
inc(k);
end;
write(k);
end.
giúp mk vs( một câu cũng đc)1)
var a,b : integer;
begin
writeln('nhap a va b =');
readln(a,b);
if a>b then writeln('So lon hon la a') else writeln('so lon hon la b');
if a=b then writeln('a va b bang nhau');
readln
end.
bai 1
Begin
writeln('2-3*3+6*6=',2-3*3+6*6);
writeln('(1/2)+3*3=',(1/2)+3*3);
Readln;
End.
Bai 2
Program bai2;
Var a,b,c,SV,SHCN:real;
Begin
writeln('canh hinh vuong la'); read(c);
SV:=c*c;
Writeln('Dien tich hinh vuong la',SV);
writeln(' chieu rong hinh chu nhat la'); Read(a);
writeln('chieu dai hinh chu nhat la'); read(b);
SHCN:=a*b;
writeln('dien tich hinh chu nhat la',SHCN);
readln
End.
program giaitin_hoc24;
uses crt ;
var a,n : real;
A:real;
begin
clrscr;
write(' a,n : ');
readln(a,n);
A:=A+ axp(n) ;
write('A= ', A:6:2);
readln
end.
program bai1;
var i,a,n,s,t:longint;
f1,f2:text;
function amux(a,x:longint):longint;
var s,i:longint;
begin
s:1;
for i:=1 to x do
s:=s*a;
amux:=s;
end;
begin
assign(f1,'bai1.inp';reset(f1);
assign(f2,'bai1.out');rewrite(f2);
read(f1,a);readln(f1,n);
s:=0;
for i:=1 to n do
begin
t:=amux(a,i);
s:=s+t;
end;
write(f1,s);
close(f1);close(f2);
end.
uses crt;
var tong,m,k:longint;
begin clrscr;
write('nhap m= ');readln(n);
k:=0;tong:=0;
repeat
k:=k+1;
tong:=tong + k*k;
until tong>m;
write('so k can tim la: ',k-1);
readln;
end.