Var
i: integer;
d, s: real;
begin
d := 10;
s := d;
for i := 2 to 7 do
begin
d := d * 1.1;
s := s + d;
end;
writeln(s);
end.
Блок-схему не умею. Но эта программа хоть работает и правильно
25/2=12 (1) 12/2=6 (0) 6/2=3 (0)3/2=(1)(1)
25=11001
11001= 2^4+2^3+1=25
13/2=6 (1) 6/2=3 (0) 3/2=(1) (1)
13=1101
1101=2^3+2^2+1=13
var a,b,s: integer;
begin
readln(a);
while a>=10 do
begin
b:=a mod 10;
s:=s+sqr(b);
a:=a div 10;
end;
a:=a*a;
s:=s+a;
writeln(s);
readln;
end.
В s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!
По данной схеме составим логическую функцию:
F= A * B + not A + C, упрощаем
F= not A + B +C,
строим таблицу истинности:
Таблица во вложении: