Питон
из разговора двух программистов:
– ну вот представь, что у тебя есть 1000
– не-е-е, давай уж пусть у меня есть 1024 рубля.
этот программистский анекдот шокирует людей, далеких от компьютерной тематики. действительно, довольно сложно понять почему число 1024 круглое? все дело в том, что компьютер работает с двоичной системой счисления, а 1024 в двоичном коде - это единица с десятью нулями: 1, для компьютера оно круглое. именно поэтому производные единицы измерения в информатике связаны не с 1000, как это принято (1 кг = 1000 гр, 1 км = 1000 м и т. а с числом 1024.
организуйте вывод памятки для начинающего программиста. вам нужно написать программу так, чтобы расчет значения в последней строке выполнялся непосредственно перед ее выводом и подставлялся вместо .
1 бит - минимальная единица количества информации.
1 байт = 8 бит.
1 килобит = 1024 бита.
1 килобайт = 1024 байта.
1 килобайт = бит.
формат вывода
заполненная памятка из 5 строк.
var a:string;
i, o: Integer;
p: Real;
begin
readln(o);
a := inttostr(o);
for i := 1 to length(a) do
p := p + strtoint(a[i]);
if (sqr(o) = p*p*p) then writeln('true')
else writeln('false');
end.
2)
var a:string;
i, o, p: Integer;
begin
readln(o);
a := inttostr(o);
for i := 1 to length(a) do
p := p + strtoint(a[i]);
if (p mod 3 = 0) then writeln('true')
else writeln('false');
end.
3)
var a, b, c: real;
begin
readln(a, b, c);
if ((a = b) and (b = c)) then writeln('true')
else writeln('false');
end.
Всё проверено, удачи:)
Первая
var n,x:integer;
begin
readln(n);
while n <> 0 do begin
x:=x + n mod 10;
n:=n div 10;
end;
if(x mod 2 = 0) then
writeln('true')
else
writeln('false');
end.
Вторая
var x,z,s:integer;
begin
readln(x);
if (x > 99) and (x < 1000) then begin
s:=x;
while s<>0 do begin
z:=z+s mod 10;
s:=s div 10;
end;
if(x*x) = (z*z*z) then
writeln('true')
else
writeln('false');
end
else
writeln('Число должно быть 3-ех значным!');
end.
Третья
Var a,b,c:Real;
Begin
Writeln('Введите a');
Readln(a);
Writeln('Введите b');
Readln(b);
Writeln('Введите c');
Readln(c);
if (a=b) or (a=c) or (b=c) then
writeln ('true')
else
writeln ('false);
end.