Var s :string;
i :integer;
begin
writeln('введите переменную');
readln(s);
for i:=(Length(s)) downto 1 do write (s[i]);
<span>end.</span>
ЕСЛИ А=26; b=6
1.А MOD b+b; 26/6+6=?
(НАДЕЮСЬ ТЫ ЗНАЕШЬ КАК РЕЗДЕЛИТЬ И ПРИБАВЛЯТЬ) (
(DIV-ЭТО САМ ОТВЕТ ОТ ДЕЛЕНИЯ; MOD-ЭТО ОСТАТОК ПРИ ДЕЛЕНИИ)
10.С:=10 mod(b+1); 10/(6+1)=6+1=7;10/7=1,3
DIV=1
MOD=3
ДУМАЮ ТЫ СПРАВИШЬСЯ)
var i,j:integer;
begin
for i:=0 to 3 do
begin
for j:=i to 2 do write (' ');
write('/');
for j:=1 to i do write (' ');
write('\');
writeln;
end ;
for i:=0 to 3 do
begin
for j:=1 to i do write (' ');
write('\');
for j:=i to 2 do write (' ');
write('/');
writeln;
end ;
end.
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.
Блок-схему не умею. Но эта программа хоть работает и правильно
A B C D (B^C) (C^D) неС неD (D+неС) (neC^neD)
0 0 0 0 0 0 1 1 1 1
0 0 0 1 0 0 1 0 1 0
0 0 1 0 0 0 0 1 0 0
0 0 1 1 0 1 0 0 1 0
0 1 0 0 0 0 1 1 1 1
0 1 0 1 0 0 1 0 1 0
0 1 1 0 1 0 0 1 0 0
0 1 1 1 1 1 0 0 1 0
1 0 0 0 0 0 1 1 1 1
1 0 0 1 0 0 1 0 1 1
1 0 1 0 0 0 0 1 0 0
1 0 1 1 0 1 0 0 1 0
1 1 0 0 0 0 1 1 1 1
1 1 0 1 0 0 1 0 1 0
1 1 1 0 1 0 0 1 0 0
1 1 1 1 1 1 0 0 1 0
через 10 мин допишу дальше
