Tổng ba số:
program Hello;
uses crt;
var a,b,c: longint;
f:text;
begin
assign(f, 'tbs.inp'); reset(f);
readln(f, a, b, c);
close(f);
assign(f, 'tbs.out'); rewrite(f);
writeln(f, a + b + c);
writeln(f, a*a + b*b + c*c);
close(f);
end.
Không file:
program Hello;
uses crt;
var a,b,c: longint;
begin
readln(a, b, c);
writeln(a + b + c);
writeln(a*a + b*b + c*c);
readln;
end.
=================================
Endtime:
program Hello;
uses crt;
var k,phut,i:byte;
f:text;
begin
assign(f, 'Endtime.inp'); reset(f);
readln(f,k);
close(f);
for i:= 1 to k do
if i mod 2 = 0 then
phut:= phut + 60
else
phut:= phut + 50;
if k mod 2 = 0 then phut:= phut - 15
else phut:= phut - 5;
assign(f, 'Endtime.out'); rewrite(f);
writeln(f, 7 + phut div 60, ' ', phut mod 60);
close(f);
end.
Không file:
program Hello;
uses crt;
var k,phut,i:byte;
begin
readln(k);
for i:= 1 to k do
if i mod 2 = 0 then
phut:= phut + 60
else
phut:= phut + 50;
if k mod 2 = 0 then phut:= phut - 15
else phut:= phut - 5;
assign('Endtime.out'); rewrite(f);
writeln(7 + phut div 60, ' ', phut mod 60);
end.
==================================
Lũy thừa 2:
program Hello;
uses crt;
var k,n:longint;
f:text;
begin
assign(f, 'luythua.inp'); reset(f);
readln(f, n);
close(f);
for k:=trunc(sqrt(n)) downto 1 do
if exp(k*ln(2)) < n then
break;
assign(f, 'luythua2.out'); rewrite(f);
writeln(k, ' ', exp(k*ln(2)):0:0);
close(f);
end.
Không file:
program Hello;
uses crt;
var k,n:longint;
begin
readln(n);
for k:=trunc(sqrt(n)) downto 1 do
if exp(k*ln(2)) < n then
break;
writeln(k, ' ', exp(k*ln(2)):0:0);
readln;
end.
