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.
program bai1;
uses crt;
var n,tong,a,dem,i,t:longint;
j:integer;
s,s1:string;
function demcs(n:longint):longint;
begin
dem:=0;
while n <>0 do
begin
dem:=dem+1;
n:=n div 10;
end;
demcs:=dem;
end;
begin
clrscr;
write('nhap n:');readln(n);
a:=sqr(n);
dem:=0;
while a<>0 do
begin
if a mod 10 =3 then dem:=dem+1;
a:=a div 10;
end;
if dem=0 then writeln('trong so ',sqr(n),' khong co chu so 3 nao')
else
writeln('trong so ', sqr(n),' co ',dem,' chu so 3');
if demcs(n)<>1 then
begin
str(n,s);
s1:=s[length(s)];
for i:=2 to length(s)-1 do s1:=s1+s[i];
s1:=s1+s[1];
val(s1,a,j);
end
else a:=n;
tong:=n+a;
write('tong cua so ban dau va so moi la:',tong);
readln;
end.
*đây là bài 1, còn bài 2 để mai mk giải cho, khuya r
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.