А как сделать это диктант по клеточкам ?
А* не(неВ+С) = <span>А* не неВ * неС = </span>А * В * неС
3
var n: integer;
s: real;
begin
s:=0;
n:=1;
while n <= 3*3*3*3*3*3*3*3 do begin
s:= s+1/n;
n:= n*3;
end;
writeln(s);
end.
4
var a: integer;
s: real;
begin
s:=1;
readln(a);
for var i:=1 to a do begin
s:= s-1/(i+1);
s:= s+1/(i+2);
end;
writeln(s);
end.
Во втором находится сумма цифр числа
а = 1
б = 2
с = 5
Сумма = 8
В третьем надо написать, насколько я вижу, на паскале программу.
program Hello;var a,b,c,x:integer;begin readln(x); a:=x div 100; b:=x mod 100 div 10; c:=x mod 10; writeln('Сотни ',a); writeln('Десятки ',b); writeln('Единицы ',c);end.